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T |. Czynicie Pańshwd jiri ćztyarty hlimęr ^Ta- 

Jemfuć'i Mamy nadziśję, że kłopoty z regularnością 
ukazywani#, sią pism# są jużza nami i.spoty kić bę¬ 
dziemy się zawszą- na początku każdego tnimiąpa. 
Jak Wynika z korespondencji, którą otrzymujemy for¬ 
ma, zawartość' t Ceną pism# przypadły Państmr do 
gustu. Zdajemu sobm sprawę, że objętość gazety 
me jest zbyt duża, dlatego staramy się w pełni ją Wy¬ 
korzystać. Z góry na niepowodzenie skazane będzie 
wręć szykanie u nas rozmów i wywi$d6wz'ciśkawy- 
ińi fudź/m Będziemy się- natomiast starać wypełnić 
każde wolne miejsce gazety użytecznymi informacja¬ 
mi i programami Nasze wysiłki powiodą się jednak 
tyikó pod waninktern smagc) kontami .z cżytęmtka- 
mi, Powiem nie ohcómy tworzyć sztuki <ji& sztuki 
Dlatęgo. prosimy o wszelkie £ informacje r sugestie 
Państwa na tetnat Waszych oczekiwań dotyczących 
zawartości Tajemnic*. Oćżikufeifiy również pytań 
dotyczących praktycznyóh problemów korzystania 
. i ’małego. Atah. Ze wzgiądupa ilość koresponden¬ 
cji, jaką już w tej chwili otrzymujemy, nie pędziemy 
niestety w stanie indywidualnie odpowiedzieć m 
każdy listr Postaramy Się Jednak, byjakrrajWręceflra- 
pujacych Państwa zagadnień znalazło swoje Wy-, 
jaśnienie nS naszych kamach » Osobom taawansowa 
nym w programowaniu naszego komputera propo- 


śzczaniu w “Tajemnicach ich autorskich programów. 
Jedynym stawianym przez nas warunkiem jest profe¬ 
sjonalizm Wykonania programu J jego użyteczność. 
Oczywiście autorzy otrzymają stosowne honoraria. 


Wraź z dokładnym, opise m d p iafanią i ó bsĄjgi. j Gwa- 
rantUjemy Zwrot nośnika. ' 
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PROGRAMOWANIE PROCESORA 6502 
W KOMPUTERACH ATARI XI/XE cz.ll 


Krótkie przypomnienie 

Dotychczas nabyte wiadomości 
powinny wystarczyć do napisania 
takiego progTamu: 

OPT 21 opcje 
ORG 1152 skąd 

* - deklaracje 

ZEGAR EQU 20 
RAMKA EQU 712 
KLAW EQU 764 
NIC EQU 255 

* - zapamiętaj kolor 

LDX RAMKA 

* -mrugaj ramką 

MRUGAJ LDA ZEGAR 

STA RAMKA 

* - sprawdź klawisz 

LDY KLAW 
INY (255+1=0) 

BEQ MRUGAJ 

* - skasuj klawisz 

LDY #NIC 
STY KLAW 

* odtwórz kolor 

STX RAMKA 

* koniec 

RTS 

END 

Odrobina nudnej, ale 
koniecznej teorii 
na temat liczb 

System dziesiętny, stosowany 
z upodobaniem przez ludzi, z ra¬ 
cji budowy ich kończyn, chara¬ 
kteryzuje się tym (i stąd bierze 
swą nazwę), że liczba różnych 
cytr, (a więc i liczb możliwych do 
przedstawienia jedną cyfrą) jest 
równa lO. Chcę tu zwrócić uwa¬ 
gę, że liczba jest pojęciem abstra¬ 
kcyjnym, istotnie różnym od jej 
zapisu na papierze, będącym tyl¬ 
ko jej interpretacją wizualną 
w postaci ciągu znaków, zwanych 
cyframi. Dobór tych znaków zale¬ 
ży od umowy i może być (a nawet 
bywa) różny, choć opisuje tę sa¬ 
mą liczbę. Dlatego nie będziemy 


mówić o liczbach dziesiętnych 
i dwójkowych, lecz o zapisie 
dwójkowym, dziesiętnym, itd. 
Istota liczby nie zmienia się bo¬ 
wiem w zależności od sposobu jej 
przedstawienia. 

We wnętrzu komputera liczby są 
zapisywane w obwodach elektry¬ 
cznych za pomocą napięć o usta¬ 
lonych, łatwych do porównania, 
poziomach. Pojedynczym elemen¬ 
tem liczby w komputerze jest 
przerzutnik, czyli obwód mogący 
trwać w jednym z dwóch stanów; 
"włączony” i "wyłączony" Odpo¬ 
wiednikiem graficznym takiego 
elementu jest pojedynczy znak 
(cyfra) z dwuznakowego repertu¬ 
aru, np. "H" i ”L” albo i ,, +", itd. 
Łatwo spostrzec, że jeden taki 
element pamięciowy, zwany bi¬ 
tem, jest w stanie "udźwignąć" 
niewiele różnych liczb (dokładnie 
dwie). Jeśli jednak potraktować 
kilka bitów wspólnie jako zapis 
jednej liczby, możliwości te szyb¬ 
ko rosną. Grupa ośmiu bitów mo¬ 
że przyjąć 256 różnych stanów. 
Taką grupę przyjęto nazywać bąj- 
tem. 

W języku asemblera możemy 
przedstawiać liczby zarówno dzie¬ 
siętnie, zgodnie z powszednią 
praktyką, jak i dwójkowo (bito¬ 
wo). Do zapisu dwójkowego sto¬ 
sujemy cyfry "o" i ”1", co dobrze 
wspomaga intuicję, a cały ciąg 
cyfr poprzedzamy znakiem 
Taki zapis stosuje się szczególnie 
wtedy, gdy trzeba odwołać się do 



poszczególnych bitów jakiegoś 
bąjtu, np. w celu włączenia silni¬ 
ka magnetofonu, oo jest związane 
z trzecim bitem bąjtu 54018. 

LDA #%00110100 

STA 54018 start 

włącza si ln ik, zaś 

LDA #%00111100 

STA 54018 Stop 

wyłącza go. Pamiętajmy, że bity 
są numerowane od prawej stro¬ 
ny, a skrąjny ma numer O. 

Z uwagi na zakres wartości bę¬ 
dziemy dzielić liczby na "krótkie" 
i "długie”. Krótkimi nazywamy te 
z liczb, które dąją się zapisać 
przy pomocy jednego bąjtu, 
a więc od O do 255. W potocznej 
formie będziemy też na nie mó¬ 
wić po prostu "bąjt". Liczby dłu¬ 
gie przyjmują wartości z zakresu 
od O do 65535, a dla ich wyraże¬ 
nia komputer potrzebuje dwóch 
bąjtów. Takie liczby nazywamy 
nieraz "adresami", jako że ich za¬ 
kres odpowiada przestrzeni adre¬ 
sowej naszego komputera. Dwu 
bąjtowy fragment pamięci po¬ 
trzebny dla pomieszczenia adresu 
zwie się "słowem". Potocznie nie 
akcentuje się różnic znaczenia 
zwrotów "słowo", "adres", "liczba 
długa", nierzadko będziemy ich 
używać zamiennie. Zawsze jed¬ 
nak, gdy będzie mowa o słowie, 
np. pod adresem 560 pamiętąjmy, 
że zajmuje ono dwa kolejne bąjty: 
560 i 561. 

Operacje logiczne 

Manipulacja silnikiem magneto¬ 
fonu pokazaną wyżej metodą za¬ 
kłada, że pozostałe bity mają ta¬ 
kie właśnie wartości, jak w przy¬ 
kładzie. Jeśli jest inaczej, oprócz 
włączenia silnika może to spowo¬ 
dować niepożądane skutki ubocz¬ 
ne. Aby tak się nie stało, trzeba 
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"poruszyć” tylko ten jeden, wy¬ 
brany bit. Rozkazy AND, ORA 
i EOR działają na odpowiednie bi¬ 
ty akumulatora i argumentu 
w pamięci według znanych ze 
szkoły "tabelek prawdy”: 

bit w bit w wynik wynik wynik 
A pamięci AND ORA EOR 

0 0 0 0 0 

0 10 11 

10 0 11 

11110 

Wynik operacji pozostaje w aku¬ 
mulatorze. A zatem 

STER_A EQU 54018 
BIT 3 EQU %00001000 
BIT__3 EQU %11110111 

LDA STER_A 
AND #BIT_3_ 

STA STER_A 

wyzeruje trzeci bit rejestru steru¬ 
jącego portu A, ożyli włączy silnik 
magnetofonu, natomiast 

LDA STER_A 
ORA #BIT_3 
STA STER_A 

wyłączy magnetofon, nie ruszając 
pozostałych bitów. Taki układ zer 
i jedynek, służący do operacji na 
wybranych bitach bąjtu, nazywa 
się maską. AND zeruje te bity re¬ 
jestru, których odpowiedniki 
w masce są zerami, resztę pozo¬ 
stawia bez zmian. ORA ustawia 
(na l) te bity, których odpowied¬ 
niki w masce są jedynkami, a po¬ 
zostałe się nie zmieniają EOR na¬ 
tomiast zamienia zera na jedynki, 
a jedynki na zera w tyoh miej¬ 
scach, gdzie bity maski są jedyn¬ 
kami. O tych bitaoh argumentu, 
które chronione są przed zmianą, 
mówimy, że są "zamaskowane”. 
Oczywiście, ze względu na syme 
trię operacji logicznyoh, nie jest 



ważne, czy właściwy argument 
jest w pamięci, a maska w aku¬ 
mulatorze, czy na odwrót. Wy¬ 
mienione tu rozkazy wpływają na 
stan dwóch znaozników: Z jest 
ustawiony, gdy wszystkie bity 
wyniku są zerami, a do N kopiuje 
się nąjstarszy bit wyniku. Zwy¬ 
kle, zamiast definiować dwie ma¬ 
ski dla jednego bitu, zadowalamy 
się jedną: 

STER_A EQU 54018 
BIT_3 EQU %1000 

LDA STER A 

AND #255-BIT_3 

STA STER_A 

dla włączenia silnika. Zastosowa¬ 
no tu dwa uproszczenia, począt 
kowe zera każdej liczby można 
pominąć, zaś 255 (dwójkowo 
9611111111) po odjęciu maski da¬ 
je jej "negatyw". 

Bardzo dowoipnie działa rozkaz 
BIT, który ustawia znaoznlk 
Z tak, jakby wykonana została 
operacja AND między akumulato¬ 
rem a komórką pamięci, argu¬ 
menty wszakże nie ulegają zmia¬ 
nie. Dodatkowo szósty bit bąjtu 
z pamięci przenoszony jest do 
znacznika V, a siódmy - do N. 



W tej grupie wymienia się też 
zwykle jednoargumentowe rozka¬ 
zy przesuwające bity, choć mogą 
też być rozumiane jako dzielenie 
i mnożenie liczby przez 2. Są 
cztery takie rozkazy: ASL, LSR, 
ROL, ROR. Te z nich, które mąją 
na końcu "L", przesuwają bity 
w lewo, dwa pozostałe - w prawo. 
Pojedyncze wykonanie rozkazu 
przesuwa wszystkie bity o jedną 
pozycję w stosownym kierunku, 
np. ASL umieszcza na pozycji 
1 ten bit, który dotyohczas miał 
numer O, bit 1 przenosi na pozy¬ 
cję 2, itd. Przykładowo 

LDA #%00110101 

ASL % 

spowoduje przekształcenie liczby 
w akumulatorze w 9601101010. 
Na opróżnionej skrąjnej pozycji 
w przypadku rozkazów ASL 
i LSR umieszczane jest zero, na¬ 
tomiast rozkazy ROL i ROR 
umieszczają tam dotychczasową 
wartość znacznika C. Wszystkie 
cztery rozkazy przenoszą "wyoho- 
dzący" bit do znacznika C. Symbol 
"@" oznacza, że argument opera 
eji znajduje się w akumulatorze. 
Te cztery bowiem (i tylko te) roz¬ 
kazy mogą odnosić się do komór¬ 
ki pamięci lub do akumulatora. 

Co wynika ze znacznika? 

Przedstawić już pora kompletny 
zestaw znaczników. Zgodnie 
z miejscem zajmowanym w reje¬ 
strze procesora są to: 


N 

V 

1 

B 

D 

I 

Z 

c 


N, V, Z, C są znacznikami wyniku 
operacji, natomiast B, D, I opisują 
tryb pracy procesora. Oto omó¬ 
wienie znaczników: 

N - kopia 7. bitu wyniku 
V - przeniesienie lub pożyczka po¬ 
między 6. i 7. bitem 


















5 





1 - nieużywany, większość od¬ 
mian procesora ma tu l 
B - zerowany na skutek przerwa¬ 
nia zewnętrznego, poza tym 1 
D - tryb dziesiętny wykonywania 
rozkazów ADC i SBC 
I - blokada przyjmowania prze¬ 
rwań £RQ 

Z - 1 gdy wszystkie bity wyniku 
są zerami, kiedy indziej O 
C - przeniesienie z 7. bitu wyniku 
(lub brak pożyczki przy SBC) 

Wyjątkowy wpływ rozkazu BIT 
na zna c zniki opisano wyżej. 
N i Z są aktualizowane przez 
wszystkie rozkazy arytmetyczne, 
logiczne i przesyłające wartość 
d o rejestru. Znaoznik V zmienia 
się tylko pod wpływ em rozkazów 
ADC, SBC, PLP, BIT. Na znacznik 
C wpływają tylko: ADC, SBC, 
PLP, ROL, ROR, ASL, LSR. Nale¬ 
ży w szczególności pamiętać, że 
przesłania z rejestru do pamięci 
nie zmieniąją żadnych znaczni¬ 
ków. Każdy z rozkazów skoków 
warunkowych kieruje się w swym 
działaniu wartością jakiegoś zna¬ 
cznika: 

rozkaz 

BNE 
BEQ 
BPL 
BMI 
BCC 
BCS 
BVC 
BVS 


skocz,gdy... 

Z=0 

Z=1 

N=0 

N=1 

c=o 

C=1 

v=o 

v=i 


Jeszcze o trybach adresowania 

Aby wyświetlić napis na ekranie, 
zastosujemy poznaną już kon¬ 
strukcję pętli. 

EKRAN EQU 48192 
LDY #15 
PISZ LDA # ' a' 

STA EKRAN,Y 
DEY 

BPL PISZ 



Uwaga: jeżeli komputer był uru 
ohamiany bez wciśniętego klawi¬ 
sza OPTION, etykiecie EKRAN 
trzeba nadać wartość 40000, 
a nie 48192. Fakt, że obraz 
w komputerze ATARI nie ma 
sztywno przydzielonego obszaru 
pamięci, komplikuje nieco wy¬ 
świetlanie, jeśli choemy, by tekst 
był widoczny w każdej sytuacji. 
Aktualny adres pamięci obrazu 
zawarty jest w komórkach 88 
i 89. Można zatem napisać tak: 

ADRES EQU 88 

LDY #15 

PISZ LDA #'a' 

STA (ADRES),Y 

DEY 

BPL PISZ 

Taki zapis: STA (ADRES),Y ozna¬ 
cza zapis bąjtu z akumulatora 
pod adres otrzymany ze słowa le¬ 
żącego pod adresem ADRES, 
zwiększonego o zawartość reje¬ 
stru Y Taki sposób dostępu do 
pamięci nazywamy adresowa¬ 
niem pośrednim indeksowym 
Pomyślmy jeszcze chwilę o powy¬ 
ższym przykładzie: jeśli np. 
w 88,89 siedzi adres 20000, to 
kolejne znaczki zostaną umiesz¬ 
czone pod adresami 20015, 
20014, 20013, itd., aż do 20000. 
W ten sposób możemy operować 
na adresach nam jawnie niezna¬ 
nych (znanych tylko komputero¬ 
wi!). Zwodniczo podobny, ale zgo¬ 
ła różny w działaniu jest tryb ad¬ 
resowania pośredniego z reje¬ 
strem indeksowym X. 

STA (ADRES,X) (zwróć uwagę na 
położenie nawiasu!) znąjduje ad¬ 
res argumentu w słowie pod ad¬ 
resem o zawartość X dalszym niż 
ADRES. Załóżmy, że komórki 
lOO i lOl zawierają liczbę 400, 
komórki 120 i '.21-liczbę 500, 
w rejestrze X jest 20, w rejestrze 
Y jest 20. 

STA (100,X) odwoła się do ko¬ 


mórki o adresie 500 
STA (100),Y odwoła się do ko¬ 
mórki o adresie 420 

Nawias oznacza: weź słowo 
spod... Przecinek oznacza: dodąj 
zawartość rejestru... Ostateczny 
wynik jest adresem argumentu. 
Część liczbowa tych rozkazów 
jest liczbą krótką, zapisywaną 
w jednym bajcie, a zatem słowo 
zawierające adres musi leżeć mię¬ 
dzy adresem O a 255. Ten obszar 
pamięci nazywa się stroną "zero¬ 
wą". Tryb adresowania (adres,X) 
jest znikomo pożyteczny, w od¬ 
różnieniu od drugiego, stosowa¬ 
nego bardzo często. 

Nietrudno zauważyć, że fragment 
pamięci możliwy do objęcia przy 
zmianach rejestru Y jest niewiel¬ 
ki (co nąjwyzej 256 bąjtów), gdy 
więc trzeba odwołać się do, po¬ 
wiedzmy, 768 bąjtów, robimy to 
tak: 

* adres ekranu 

EKRAN EQU 88 

* komórki 204,205 

* nie są używane 

* przez system 

ADRES EQU 204 

* kopiowanie adresu 

LDA EKRAN 
STA ADRES 
LDA EKRAN+1 
STA ADRES+1 

* zapełnianie ekranu 

LDX #3 (bo 3*256=768) 

*- pętla po 256 bajtów 

L_256 LDY #0 

*- pętla po 1 bajcie 

L_1 LDA #'X' 

STA (ADRES),Y 
INY następny bajt 
BNE L_1 

INC ADRES+1 

DEX następne 256 ? 

BNE L 256 
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Warto zauważyć, że modyfikować 
trzeba tylko starszy bajt słowa 
ADRES, ponieważ zmiany reje¬ 
stru Y pokrywają cały możliwy 
zakres zmian młodszego bajtu. 

Strony pamięci, strona 
zerowa 


Stroną pamięci nazywamy taki jej 
obszar, którego adresy mają jed¬ 
nakowy starszy (bardziej znaczą¬ 
cy) bajt. Na przykład dla komó¬ 
rek od 256 do 511 starszy bajt 
adresu jest równy 1, gdy młodszy 
zmienia się od O do 255. Starszy 
bajt wyznacza więc numer strony, 
młodszy - numer bajtu na stronie. 
Jest oczywiście 256 różnych 
stron, wszak cała pamięć ma 
256 * 256 -- 65536 bajtów. Ta ze 
stron, której numer jest równy O, 
zwie się zerową. Wiele rozkazów 
procesora odnosi się właśnie do 
tej strony. Adres w takich rozka¬ 
zach zostaje skrócony do jednego 
bajtu, przez oo wykonują się szyb¬ 
ciej od tych z pełnymi (długimi) 
adresami. 

Janusz B Wiśniewski 
Dalszy ciąg nastąpi 


Prezentowany programik nade¬ 
słał do nas Pan Tomasz Wiesz¬ 
czek z Trakiszek. Uzupełnia on 
standardowy interpreter basiou 
o funk j odczytu katalogu dys¬ 
kietki (directory). Procedura w ję¬ 
zyku maszynowym zgodnie z re¬ 
gułami konkursu umieszczona 
jest na szóstej stronie pamięci. 
Wywołanie funkcji USR (1536) 
powoduje wypisanie na ekranie 
katalogu dysku bez potrzeby 
przechodzenia do DOSu. Proce¬ 
dura realizująca odczyt zawarto¬ 
ści dyskietki mogłaby być oczywi¬ 
ście wywoływana jakąś kombina¬ 
cją klawiszy co byłoby łatwiejsze 
w użyciu, lecz wtedy nie dałoby 
się używać tej funkcji we włas¬ 
nych programach Omawianą 
procedurę można wywoływać na 
dwa sposoby bez parametru lub 
z podanym wzoroem (maską) 
nazw do wyświetlenia. W pier¬ 
wszym przypadku wywołanie wy¬ 
gląda np A=USR(1536) i spowo¬ 
duje ono wypisanie całego katalo¬ 
gu dyskietki. W drugim przypad¬ 
ku jako parametr podajemy adres 
wzorca nazw. Wywołanie może 
wówczas wyglądać następująco: 


A=USR(1536,ADR("D:*.BAS ")) OO 
spowoduje wyświetlenie nazw 
wszystkich plików z rozszerze¬ 
niem RAS. Ważna uwaga: podany 
wzorzec musi kończyć się znacz¬ 
kiem rozpoznawalnym przez DOS 
jako koniec nazwy np. spacja 
w negatywie Prezentujemy niżej 
wydruk programu w języku 
asemblera w formacie QA oraz 
program w basicu, który dekodu¬ 
je kod maszynowy zapisany 
w wierszach DATA do pamięci na 
stronę szóstą. Kolejne wiersze te¬ 
go programu numerowane są od 
31000 oo powinno pozwolić na 
w miarę bezkonfliktowe dołącza¬ 
nie go do własnych Należy go 
raz wywołać na początku własne¬ 
go programu jako podprogram 
(komendą GOSUB 31000) po 
czym można dowolną liczbę razy 
używać funkcji USR(1536). Proce¬ 
dura maszynowa nie jest niestety 
relokowalna, toteż nie może być 
przenoszona w inne miejsce pa¬ 
mięci bez zmian w kodzie (asemb- 
lacji w inne miejsce pamięci). 

AVAL0N 



******************** 


* * 

* Basic Directory * 

* * 
*(c)1991 Tajemnice * 

* Atari * 

* * 


******************** 

opt %010101 

*- system 

iocbO equ $340 

beli equ $f556 
ciov equ $e456 

*- stale 















eol equ $9b 
org $600 

* ustaw standardowa 

* maskę katalogu 

Ida <dfil 
sta tmp 
Ida >dfil 
sta tmp+1 

* pobranie parametrów 

pla 

beq dir 
pla 

sta tmp+1 
pla 

sta tmp 



Ida 

#6 


sta 

iocb0+10,x 


Ida 

#0 (128) 


sta 

iocb0+ll,x 


jsr 

ciov 


bpi 

dirc 

* blad transmisji 

err 

jsr 

beli 


jmp 

endp 

* czytaj 

DIR po znaku 

dirc 

equ 

* 


ldx 

chnum 


Ida 

#0 


sta 

iocbO+8,x 


sta 

iocbO+8 


sta 

iocbO+9,x 


sta 

iocbO+9 


ldx #11 
stx iocbO+2 
ldx #0 
jsr ciov 
3 mp dlrc 


endd cpy #136 
bne err 

endp ldx chnum 

* zakończ operacje I/O 

Ida #12 
sta iocbO+2,x 
ldx #$10 
jmp ciov 


* directory 
dir equ * 

* szukaj wolnego 

* kanału I/O 


Ida #5 

sta iocbO+2,x 
jsr ciov 
bmi endd 

* wypisz dir 


dfil dta c'Dl:*.*',b(eol) 

tmp dta a(0) 

chnum dta b(0) 


* po znaku 


end 


ldx #$10 
sernx equ * 

Ida iocb0,x 
cmp #$ff 
beq freeio 
clc 
txa 

adc #$10 
tax 

cpx #$80 
bcc sernx 
rts 

freeio equ * 

stx chnum 

* otworz kanał na 

* odczyt katalogu 

Ida #3 

sta iocbO+2,x 
Ida tmp 
sta iocbO+4,x 
Ida tmp+1 
sta iocb0+5,x 



31000 RESTORE 3HOO:FOR BASE=1536 TO 1 

683;READ DAT:POKE BASE,DAT:NEXT BASE 

31100 DATA 169,138,141,145,6,169,6,141 

,146,6,104,240,8,104,141,146,6,104,141 

,145,6,162,16,189,64,3,201,255,240 

31110 DATA 10,24,138,105,16,170,224,17 

6,144,240,96,142,147,6,169,3,157,66,3, 

173,145,6,157,68,3,173,146,6,157 

31120 DATA 69,3,169,6,157,74,3,169,0,1 

57,75,3,32,86,228,16,6,32,86,245,76,12 

5,6,174,147,6,169,0,157 

31130 DATA 72,3,141,72,3,157,73,3,141, 

73,3,169,5,157,66,3,32,86,228,48,13,16 

2,11,142,66,3,162,0,32 

31140 DATA 86,228,76,81,6,192,136,208, 

206,174,147,6,169,12,157,66,3,162,16,7 

6,86,228,68,49,58,42,46,42,155,0,0,0 

31150 RETURN 
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Zgodnie z obietnicą zawar¬ 
tą w pierwszym odcinku niniej¬ 
szego cyklu ten artykuł poświę¬ 
cony jest w całości dyskietce; jej 
budowie, organizacji wewnętrz¬ 
nej, itp. 


pierwszą czynnością powinno byś 
jej sformatowanie. Operacja ta 
spowoduje, że obojętna warstwa 
magnetyczna zostanie przez gło¬ 
wicę stacji dysków odpowiednio 
namagnesowana. Podczas wszela¬ 
kich operacji na dyskietce odpo- 

mrw 


ścieżka zawiera 18 ($12) sekto¬ 
rów, gęstość rozszerzona ma 26 
($la) sektorów na jednej ścieżce. 
Po prawidłowym zakoóozeniu 
operacji formatowania mamy 
dyskietkę przystosowaną do pra¬ 
cy z daną stacją dysków. Dyskiet- 

liiMninnniiiiiiiimmr ..... 


DYSKOWE SYSTEMY OPERACYJNE 

tzęśi druga 


« w«"iiiiiiiii • iii inpini imiwtiwi 

Dyskietka jest krążkiem 
elastycznym pokrytym cienką 
warstwą magnetyczną. Krążek 
ten jest zapakowany w odpowied¬ 
nią "oprawę” (dyskietki 3.5 cala 
mąją kopertę grubą i sztywną. 


wiedni układ mechaniczny stacji 
dysków powoduje jej obrót ze sta¬ 
łą prędkością. Na dysku elastycz¬ 
nym pojawiąją się niewidoczne 
ścieżki (zwykle jest ich 40 ($28) 
złożone z sektorów. Jak łatwo się 



dyskietki 5.25 cala używane 
w komputerach ATARI serii 
XL/XE są zapakowane w miękką 
oprawę). Koperta ta posiada na 
brzegu otwór (w dyskietkach 3.5 
calowych ujawniający się dopiero 
po rozpoczęciu operacji wykony¬ 
wanej przez stację dysków), który 
umożliwia dokonanie sformato¬ 
wania dyskietki, a następnie jej 
użytkowanie (zapisywanie, odczy¬ 
tywanie, kasowanie, zmianę na¬ 
zwy plików, itp). Po zakupieniu 
dyskietki nie jest ona przystoso 
wana do współpracy z jakąkol¬ 
wiek stacją dysków, dlatego też 



domyślić są one rozłożone na 
współśrodkowych okręgach 

(rys.). W zależności od potrzeb 
i możliwości dyskietka może być 
sformatowana z różną ilością se¬ 
ktorów zawieraj ących różną ilość 
danych. Potocznie jest to nazywa¬ 
ne gęstością dyskietki. Nąjbar- 
dziej rozpowszechnione gęstości 
to 1040 sektorów po 128 bąjtów 
danych (gęstość rozszerzona), 
710 sektorów po 128 bąjtów da 
nych (gęstość pojedyncza) oraz 
710 sektorów po 256 bąjtów da¬ 
nych (gęstość podwójna). W gę¬ 
stości pojedynczej i podwójnej 


ka może być sformatowania róż¬ 
nym przeplotem sektorów, co 
umożliwia jej czytanie z różną 
prędkością. Zjawisko przeplotu 
polega na odpowiednim rozłożę 
niu sektorów na ścieżce, co poka¬ 
zuje rysunek. Po sformatowaniu 
dyskietki do pracy zabiera się 
Dyskowy System Operacyjny, 
który zajmuje kilka sektorów dla 
własnych potrzeb (jak łatwo się 
domyślić, pomniejsza to ilość wol¬ 
nych sektorów przeznaczonych 
na dane użytkownika) Zajmuje 
więc początkowe sektory, które 
przeznaczone są do ładowania sy¬ 
stemu operacyjnego (są to tzw. 
sektory bootowe). Jest ich zazwy 
czaj trzy, ich liczba może się jed 
nak wahać w granicach od 1 do 
256. Jest to typowe działanie każ 
dego DOS-a, czy też innego pro¬ 
gramu dokonującego operacji 
formatowania dyskietki, wynika 
to z systemowej procedury odczy¬ 
tu wstępnego Posiadacze staq]i 
dysków zastanawiali się zapewne 
Jak to się dzieje, że po włączeniu 
komputera nagle zapala się kon¬ 
trolka ostrzegąjąca przed wyjmo¬ 
waniem dyskietki z napędu (jest 
dokonywana jakaś operacja). Po 
dźwięku pip, pip można rozpo¬ 
znać, iż jest to operacja czytania. 
Wyjaśniam w skrócie owo owiane 
mgłą tąjemniey zjawisko Otóż 
systemowa procedura odczytu 
wstępnego (BOOT), po sprawdze¬ 
niu, że staqja dysków jest obecna 
i gotowa do współpracy, rozpo¬ 
czyna operację czytania dyskiet¬ 
ki, Czytany jest sektor numer je¬ 
den, którego drugi bąjt określa 
liczbę sektorów bootowych (prze¬ 
znaczonych do natychmiastowego 
wgrania). Ich zawartość jest 
umieszczona od adresu, który 
jest zapisany w trzecim i czwar 
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tym bąjcie sektora pierwszego 
Po wgraniu wszystkich sektorów 
bootowyoh jest uruchamiany ten 
program, który decyduje co sy¬ 
stem ma robić (czy ma być łado¬ 
wany właściwy Dyskowy System 
Operacyjny, osy program ten jest 


nie od numeru 361 ($169), Jest 
to po prostu środek dyskietki dla 
pojedynczej gęstości i dostęp do 
nich przez głowicę stacji dysków 
jest najszybszy, niezależnie od jej 
położenia (czy znąjduje się na se¬ 
ktorze pierwszym czy ostatnim). 



DOS* 



- . 



tzw. Leaderem przeznaczonym 
do ładowania i uruchamiania 
gier). Organizacja dyskietki dla 
DOS-a 2.5 firmy Atari Corpora¬ 
tion jest następująca: Osiem se¬ 
ktorów o numerach od 361 do 
368 ($169-$ 170) zajmuje katalog 
dysku (tzw, DIRECTORY). Zawie 
rąją one dane dotyczące plików 
znajdujących się na dyskietce. 
Należą do nich nazwa i długość 
(w sektorach) pliku (dane te uka¬ 
zują się na ekranie po wydaniu 
komendy DIR lub jej równoważ¬ 
nej) oraz numer pierwszego se¬ 
ktora przez niego zajmowanego, 
Długość DIRECTORY pozwala na 
zapisanie na dysku 64 plików, po¬ 
nieważ dane jednego pliku zajmu¬ 
ją 16 bąjtów, w sektorze zaś mie 
ści się informacja o ośmiu pli¬ 
kach. Jedno pole DIRECTORY 
mające długość 16 bąjtów zawie¬ 
ra informacje dotyczące jednego 
pliku o następującej organizacji: 
pierwszy bąjt jest statusem pliku 
Oto niektóre znaczenia wartości 
statusu: O ($00) - wolne pole 
w DIRECTORY, nie ma pliku 
o danym numerze; 66 ($42) - 

plik jest aktywny; 67 ($43) - 

plik jest otwarty do zapisu 
(gdy z bliżej nieokreślonych 
przyczyn po zakończeniu opera¬ 
cji zapisu plik posiada taki status, 
to jest on traktowany jako nie¬ 
aktywny); 128 ($80) plik został 
skasowany- Drugi i trzeci bąjt 
w polu DIRECTORY oznaczają 
długość pliku Uczoną w sekto¬ 
rach, czwarty i piąty bąjt ozna- 
cząją numer pierwszego sektora 
zajmowanego przez plik. Bajty od 
6 do 16 są zarezerwowane na na¬ 
zwę pliku (ostatnie trzy to roz¬ 
szerzenie, np. COM). Nie jest zja¬ 
wiskiem przypadkowym, że kata¬ 
log dysku zajmuje sektory właś¬ 


Dzięki takiemu rozwiązaniu czas 
odczytu DIRECTORY jest nąj- 
krótszy. Dyskowy System Opera¬ 
cyjny zajmuje dla własnych po¬ 
trzeb sektor numer 360 ($168), 
który jest przeznaczony na tzw, 
VTOC czyli mapę ząjętości dysku 
(dla rozszerzonej gęstości rów¬ 
nież sektor o numerze 1024 
($400)), VTOC to informacje za- 
wierąjące ilość wszystkich sekto¬ 
rów, ilość wolnych sektorów oraz 
bitową mapę dysku. Stąd DOS 
czerpie dane wyświetlane później 
w postaci XXX FREE ŚECTORS 
(Uość wolnych sektorów). Każde¬ 
mu sektorowi przyporządkowany 
jest jeden bit mapy VTOC-a mó¬ 
wiący o tym, czy jest on aktualnie 
wolny czy też zajęty przez jakiś 
plik. Proces nagrywania pliku na 
dyskietkę polega między innymi 
na sprawdzeniu w mapie VTOC-a 
czy sektor jest wolny, jeżeU tak to 
bit będący statusem sektora jest 
negowany, co powoduje później¬ 
sze traktowanie tego sektora ja¬ 
ko zajętego. Zmniejszana jest też 
o jeden Uczba wolnych sektorów 
Ponieważ w rozszerzonej gęstości 
informacje dotyczące organizacji 
dysku nie mieszczą się w jednym 
sektorze, więc sektor 1024 
($400) zawiera drugą część tych 
informacji (niektóre z nich pokry¬ 
wają się z zawartością sektora 
360 ($168) Powyżej zostało wy¬ 
tłumaczone znaczenie sektorów 
ząjmowanych przez DOS. Jak na¬ 
tomiast są zorganizowane same 
sektory przeznaczone do prze¬ 
chowywania danych użytkowni¬ 
ka? Otóż początkowe bąjty (w za¬ 
leżności od gęstości jest ich 125 
lub 253)) są zarezerwowane na 
dane, natomiast ostatnie trzy bąj¬ 
ty sektora wykorzystuje dla włas¬ 
nych potrzeb DOS (przypomi¬ 


nam, źe dotyczy to struktury 
organizacyjnej DOS u 2.5). Przy 
jęto jako standard numerowanie 
sektorów począwszy od 1, nato¬ 
miast numerowanie bąjtów w se¬ 
ktorze zaczynamy od zera (pier 
wszy bąjt ma numer O). Tak więc 

r -* 

127 ($7f) lub 255 ($ff) bąjt sekto¬ 
ra zawiera informację dotyczącą 
ilości aktywnych danych w sekto¬ 
rze. Ponieważ sektor nie musi 

być w całości wypełniony danymi, 
więc bąjt ten informuje DOS ile 
danych należy do wgrywanego 
pliku (wgrywanego, ponieważ in¬ 
formacja ta jest wykorzystywana 
tylko przy operacji czytania). Po¬ 
zostałe dwa bąjty (w kolejności 
125 i 126 ($7d i $7e) lub 253 

i 254 ($8d i $8e)) są tzw "lin¬ 
kiem" czyli nawiązaniem do kolej¬ 
nego sektora pliku; konkretnie 
są to informacje o numerze pliku 
(numer to pozycja pliku w katalo¬ 
gu dysku Uczona od zera) oraz 
numer kolejnego sektora tego 
pliku. Przedostatni bąjt sektora 
jest resztą z dzielenia numeru na¬ 
stępnego sektora przez 256 
(młodszy bąjt), zaś 125 ($7d) lub 
253 ($8d) bąjt 'jest podzielony" 
na dwie części: dwa nąjmniej zna¬ 
czące bity są wynikiem podziele¬ 
nia numeru kolejnego sektora 
przez 256 (starszy bąjt), pozosta¬ 
łych sześć bitów tworzy numer 
pliku. 


Tak wygląda organizacja 
wewnętrzna dyskietki. Kolejny, 
trzeci odcinek cyklu poświęcone¬ 
go ujawnianiu tąjemnic Dysko¬ 
wych Systemów Operacyjnych 
będzie poświęcony praktycznemu 
wykonywaniu wszelakich operacji 
dyskowych. 
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NOWE ROZKAZY 

Turbo Basic XL oprócz 
zbioru instrukcji umożliwiających 
pisanie programów strukturalnie 
oferuje użytkownikowi kilkana¬ 
ście rozkazów umożliwiających 
efektywniejsze wykorzystanie 
możliwości naszego ulubieńca. Są 
to: 


PAINT x,y - wypełnienie zamknię¬ 
tego obszaru kolorem wybranym 
ostatnią instrukcją COLOR; 
w przypadku zbyt dużych obsza¬ 
rów do wypełnienia, ze względu 
na używany przez rozkaz algo¬ 
rytm, może się okazać, że mamy 
za mało wolnej pamięci do wyko¬ 
nania tego rozkazu - pojawi się 
komunikat ERROR - 2MEM 


łów (112 lub 3 i 4) w jeden o roz¬ 
szerzonym zakresie oktaw; na po- 
jedyńczym kanale możemy uzy¬ 
skać 4 oktawy, na dwóch połączo¬ 
nych - 7 oktaw. 

DSOUND - ustawia głośność 
wszystkich generatorów dźwięku 
na zero (czyli nastąje upragniona 
przez współdomowników CISZA). 


raiBi 

_ (m$ dbwim _ 


DPOKE adres,słowo. - dwubajtowa 
instrukcja POKE; młodszy bajt 
słowa (uwaga dla początkujących: 
słowo w tym wypadku nie oznacza 
wyrazu, np. ”Ziutek” ale liczbę 
dwubajtową, np. 32000) wpisywa¬ 
ny jest do komórki adres a star¬ 
szy do komórki adres + 1 . 

MOVE skąd,dokąd,ile - przeniesie¬ 
nie bloku pamięci spod adresu 
skąd pod adres dokąd’, ile określa 
liczbę bajtów do przeniesienia. 

- MOVE skąd,dokąd,ile - podobnie 
jak wyżej z tym, że bajty są prze¬ 
noszone od końca; jako dokład¬ 
niejsze wyjaśnienie niech posłuży 
przykład wykonania tej samej 
pracy przy użyciu Atari Basic-a: 
FOR i = Ile - 1 TO O STEP -1: PO¬ 
KE dokąd + l.PEEK ( skąd + i): 
NE XI i 

BPUT #n,skąd,ile - umożliwia za¬ 
pisanie na urządzeniu #n (musi 
być przedtem otwarte i okreśone 
instrukcją OPEN) bloku danych 
od adresu skąd i długości ile. 

BGET #n,dokąd,ile - podobnie jak 
wyżej: wczytanie ile bajtów pod 
adres dokąd. 

FILLTO x,y - wypełnienie obsza¬ 
ru; zgodne z instrukcjami Atari 
Basic-a: POSITION x,y : XIO 
18,#16,0,0,"S:". 

PC Ol, DR n - wybór koloru dla 
FILLTO (odpowiednik POKE 
756,n). 


TEST x,y,tekst - umożliwia pisanie 
tekstów w trybie graficznym; x,y 
określają pozycję górnego, lewe¬ 
go rogu (w punktach!); gdy tekst 
jest zbyt długi i wychodzi poza 
ekran jest po prostu przycinany 
w odpowiednim miejscu; w tek¬ 
ście może występować tylko jed¬ 
no wyrażenie (nie lista z przecin¬ 
kiem lub średnikiem!); Ciekawe 
efekty daje wykorzystanie tego 
rozkazu w trybie graficznym o - 
zobaczcie, co się pojawi po napi¬ 
saniu (w GR.O) COLOR 128:TEXT 
O,O,"Atari" i COLOR 40 : TEXT 
0,0,"Atari" - zauważycie, że war¬ 
tość argumentu instrukcji CO¬ 
LOR określa, jakim znakiem (w 
kodzie ATASCII) będzie wypisy¬ 
wany tekst. 

CIRCLE x,y,rx,ry - kreśli elipsę 
o środku w punkcie x,y i promie¬ 
niach rx,ry ; w przypadku pominę - 
cia ry kreślone będzie koło o pro¬ 
mieniu rx. 

INPUT 'jakiś tekst, wartośćl, war- 
tość2,... - odpowiednik rozkazu 
INPUT Atari Basic-a; umożliwia 
oszczędzenie rozkazów PRINT; 
ponadto jeżeli po tekście zamiast 
przecinka napiszemy średnik nie 
pojawi się denerwujący niektó¬ 
rych znak zapytania. 

PAUSE n - przerywa wykonanie 
programu na czas n /50 sekundy. 

DSOUND kanał, częstotliwość, szu¬ 
my, głośność - rozkaz podobny do 
normalnego SOUND - umożliwia 
łączenie dwóch normalnych kana 


CLOSE - zamyka wsztystkie 
otwarte przez programistę kana¬ 
ły wejścia/wyjścia (oczywiście, nie 
ingeruje w kanał edytora) 

— - jest to specjalny rozkaz REM; 
po poleceniu list na ekranie uj¬ 
rzymy nie dwa a 30 znaków 
ciekawostką jest fakt, że rozkaz 
ten zajmuje jeden bajt pamięci 
mniej niż normalny REM bez 
tekstu; stosuje się go do uwypu¬ 
klania pewnych części programu 
(patrz: program przykładowy). 

DODATKOWE FUNKCJE 

DPEEK(adres) - dwubajtowy PE- 
EK; równoważny sekwencji PE- 
E K(adres) +256* PE EK(adres +1). 

INKEYS - bardzo przydatna 
zmienna odczytująca znaki z bu¬ 
fora klawiatury; zwraca wartość 
naciśniętego aktualnie klawisza 
bądź " " (spacja), gdy żaden nie 
jest naciśnięty. 

INSTR(A$,B$,/) - poszukuje 
zmiennej B$ w dłuższej (!) zmien¬ 
nej A$ od pozycji /; jeżeli ją znąj- 
dzie jej pozycje zapisywana jest 
w A$; gdy pominiemy /przeszu¬ 
kiwanie odbywać się będzie od 
początku zmiennej B$. 

UNINSTR(A$,B$,/) - podobnie jak 
INSTR; bity 7 i 6 pojedynczego 
znaku nie są rozpoznawane - 
umożliwia to poszukiwanie tekstu 
bez wzgłędu na to, czy jest pisany 
dużymi, czy małymi znakami; efe¬ 
ktem ubocznym mogą być prze- 
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kłamania przy szukaniu liczb lub 
znaków specjalnych. 

ERR - numer ostatniego błędu, 
który wystąpił w trakcie wykony¬ 
wania programu. 

ERL - numer linii, w której wy¬ 
stąpił powyższy błąd. Dwie powy¬ 
ższe instrukcje powinny być uży 
wane w procedurze wywoływanej 
rozkazem TRAP w celu kultural¬ 
nego obsłużenia występujących 
błędów. 

TIME - zmienna podająca czas 
rzeczywisty z wewnętrznego ze¬ 
gara RTCLOCK (komórki pamięci 
od 18 do 20) - jest to czas liczony 
od włączenia komputera; jedno¬ 
stką jest tutaj 1/50 sekundy. 

TIME$ - specjalna zmienna te¬ 
kstowa, zawierająca czas w posta¬ 
ci HHMMSS gdzie HH to oczywi 
ście godziny (od OO do 23), MM 
minuty a SS - sekundy; czas mo¬ 
żemy ustawić przez przyporząd¬ 
kowanie zmiennej TIMES odpo¬ 
wiedniej wartości (np. w tej chwi- 
lii mógłbym napisać TI- 
ME$="213247" i pójść spać gdy¬ 
by nie to, że muszę skończyć ten 
tekst abyś Ty, drogi Czytelniku 
otrzymał go we właściwym CZA¬ 
SIE). 

FRAC(/;cztoa) - funkcja ta zwraca 
część liczby dziesiętnej po prze¬ 
cinku (np. FRAC(11.23) da nam 
wartość 23). 

TRUNC(//czba) - funkcja ta dąje 
nam część całkowitą liczby. 

RND skrócona funkcja RND(0) 
(bez nawiasów). 

RND(n) - generuje liczbę losową 
z przedziału <0,n). 

HEX$(//czba) zamienia liczbę cał¬ 
kowitą z przedziału <0,65535> na 
odpowiadającą jej liczbę szesna¬ 
stkową; zwracam uwagę, że jest to 
funkcja przyporządkowana zmien¬ 
nej tekstowej (podobnie jak wszy¬ 
stkie pozostałe, mające znak $ na 
końcu nazwy). 


DEC(A$) - odwrotność HEXS - 
zmienna szesnastkowa zawarta 
w A$ zostaje zmieniona na liczbę 
całkowitą; jeśli A$ jest dłuższa niż 
4 znaki (czyli reprezentuje liczbę 
więcej niż dwubąjtową) to pod 
uwagę brane są tylko cztery 
ostatnie znaki Liczby szesna¬ 
stkowe mogą być pisane bezpo¬ 
średnio w programie - należy je 
tylko poprzedzić znakiem $ (np. 
$0600=$600—1536). 

x1 & x2 - binarne AND (patrz: 
kurs asemblera) 

x1 1x2 - binarne OR (patrz: j.w.). 

x1 EXOR x2 - binarne XOR (ezc- 
lusive or; patrz: j.w.). 

x1 DIV x2 - dzielenie bez reszty: 
x1 DIV x2 = TRUNC( Xljx2 ) 

x1 MOD x2 - reszta (modulo) 
z dzielenia: x1 MOD x2 = x1 - x2 
*TRUNC(xt/x2). 


ROZKAZY KOMUNIKACJI ZE 
STACJĄ DYSKÓW 

DLR "Dl:*.*” - ukazuje na ekranie 
spis zbiorów z określonego dysku 
(podobnie jak directory w DOS- 
ie); pominięcie wyrażenia w cu¬ 
dzysłowach spowoduje pokazanie 
całego katalogu dysku Dl: . 

KENAME"D:STARY,NOWY‘ - zmia 
na nazwy zbioru na dysku; nazwy 
muszą być podane w całości. 

DELETE D NAZWA" - usuwa z dys¬ 
ku zbiór o podanej nazwie; podo¬ 
bnie jak w DOS e można używać 
znaku UWAGA: Turbo Basic 
XL me pyta o potwierdzenie ska¬ 
sowania zbioru (zbiorów)! 

LOCK" D. NAZWA" - zabezpiecza 
zbiór NAZWA przed przypadko¬ 
wym skasowaniem 

UNLOCiCD 'NAZWA'' - znosi ochro¬ 
nę zbioru. 


BLOAD"D NAZWA OBJ' - ładuje 
zbiór binarny typu .OBJ w okre¬ 
ślony w tym zbiorze obrzar pa¬ 
mięci. 

BRUN"D :NAZ WA. OBJ' - ładuje 
i uruchamia zbiór binarny (jak 
opcja L z DOS-u). 

Oprócz opisanych przeze 
mnie komend i rozkazów do dys¬ 
pozycji użytkownika stoją wszy¬ 
stkie rozkazy Atari Basic-a. Inter¬ 
preter Turbo Basic-a XL znąjduje 
się w tym samym miejscu pamię¬ 
ci co standardowy Basic oraz ząj- 
muje dodatkowo pamięć RAM za¬ 
krytą przez ROM. Mimo braku 
rozkazów wykorzystujących 
w pełni możliwości ATARI XL/XE 
(np. techniki duszków) dzięki 
swojej popularności (jest to pro¬ 
gram Public Domain; występuje 
na kasetach i dyskach), szybko¬ 
ści (jest 2-3 razy szybszy od Atari 
Basic-a) oraz możliwości struktu¬ 
ralnego konstruowania progra¬ 
mów Turbo Basic XL jest języ¬ 
kiem godnym popularyzowania, 
czego nie omieszkamy czynić na 
naszych łamach. Tak jak i ostat¬ 
nio zamieszczamy program przy¬ 
kładowy, ilustrujący wykorzysta¬ 
nie właściwości Turbo Basica XL 
do efektowniejszego programo¬ 
wania. Jest to prosta gra logicz¬ 
na. Jej zasady wyjaśnia program. 
Jest on tak napisany, że nie wy¬ 
maga chyba komentarza. Pole¬ 
cam jego samodzielną analizę. 

W następnym odcinku po- 
ględzimy nieco o programowaniu 
strukturalnym ogólnie i zapre¬ 
zentujemy kolejny program-przy- 
kład w Turbo Basio-u XL . 

Upojnyoh nocy przy kla¬ 
wiaturze życzy 


Carampuc IASF 


Ps. Specjalne podziękowa¬ 
nia dla Jacka za wspomożenie 
mnie stacją dysków - dzięki! 
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LOGICZNA 

ASF 


1 - 

2 REM GRA LOGICZNA 

3 REM (Turbo Basic XL) 

4 REM specjalnie dla Tajemnic Atari 

5 REM Napisał Carampuc z grupy ASF 

6 REM Gdańsk .. marzec 1991 


7- 

100 - 

110 EXEC TABLICE 
120 REPEAT 

130 EXEC ZMIENNE 

140 EXEC LOSUJ 

150 EXEC EKRAN 

160 EXEC RUCH 

170 EXEC SPYTAJ 

180 UNTIL NOT KONIEC 
190 CLS #6 

200 TEXT 120,60,“GAMĘ OVER" 

210 PAUSE 30 
220 END 

230 - 

240 - 

1000 PROC TABLICE 

1010 DIM TAB(15):REM “pole gry” o wy 
miarze bok~2-l 

1020 DIM T$(30):REM zmienna pomocnic 


za 


1030 ENDPROC 

1040 - 

1100 PROC ZMIENNE 

1110 BOK=4:REM dlugosc boku 

1120 * KL=15:REM ile klockow do przesu 

wania 

1130 RUCH=%0:REM który ruch 

1140 PX=%0:PY=%0:REM pozycje (wzgled 

ne) "kursora" 

1150 DX=%0:DY=%0:REM przyrost wartos 

ci pozycji 

1160 XX=19:YY=20:REM wspol. lewego g 

ornego rogu pola 
1170 ENDPROC 

1180- 

1500 PROC LOSUJ 

1510 REM procedura losuje początkowe 
ustawienie klockow 

1520 DIM T2(15):REM tablica pomocnic 
za 

1530 FOR X=%1 TO KL 
1540 T2(X)=%1 

1550 NEXT X 
1560 FOR X=%0 TO KL-%1 
1570 REPEAT 

1580 LOS=TRUNC(KL*RND)+%l 

1590 UNTIL T2(LOS)=%1 

1600 T2(LOS)=%0 


1610 TAB(X)=LOS 

1620 NEXT X 
1630 ENDPROC 

1640 - 

2000 PROC EKRAN 

2010 REM procedura przygotowuje ekra 
n do gry 

2020 GRAPHICS 8+16:SETCOLOR %2,%0,%0 
:COLOR %1 

2030 PLOT %0,%0:DRAWTO 319,%0:DRAWTO 
319,150:DRAWTO ftO,150:DRAWTO %0,%0 
2040 PLOT %2,%2:DRAWTO 317,%2:DRAWTO 
317,148:DRAWTO %2,148:DRAWTO %2,%2 
2050 WX=XX-%3:WY=YY-%3:DL=97:EXEC KW 
ADRAT 

2060 REM narysuj plansze 

2070 FOR Y=%0 TO %3 

2080 DL=22 

2090 FOR X=%0 TO %3 

2100 WX=XX+X*(DL+1):WY=YY+Y*(DL+ 

1) 

2110 EXEC KWADRAT 

2120 WART=TAB(X+Y* 4) 

2130 IF WART THEN TEXT WX+4+4*(W 

ART<10),WY+7,WART 

2140 NEXT X 

2150 NEXT Y 

2160 PAINT 17,18 

2170 WX=120:WY=20 

2180 RESTORE #INSTR 

2190 READ T$ 

2200 WHILE Tę<>“#“ 

2210 TEXT WX,WY, T$ 

2220 WY=WY+8 

2230 READ T$ 

2240 WEND 

2250 TEXT 20,120,"RUCH:" 

2260 TEXT 60,120,RUCH 

2270 # INSTR 

2280 DATA GRA LOGICZNA 

2290 DATA Tajemnice Atari 4/91 

2300 DATA 

2310 DATA Twoje zadanie polega 

2320 DATA na ułożeniu klockow 

2330 DATA na planszy obok w kole- 

2340 DATA jnosci rosnącej. 

2350 DATA Sterowanie odbywa sie 

2360 DATA za pomocą klawiszy 

2370 DATA kursora i spacji. 

2380 DATA 

2390 DATA Powodzenia_ 

2400 DATA # 

2410 ENDPROC 

2420 - 

2500 PROC KWADRAT 

2510 REM rysowanie kwadratu o lewym 
górnym rogu w punkcie wx,wy o boku dlu 
gości dl 

2520 PLOT WX,WY:DRAWTO WX+DL,WY:DRAW 
TO WX+DL,WY+DL:DRAWTO WX,WY+DL:DRAWTO 
WX, WY 

2530 ENDPROC 

2540 - 
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3000 PROC PRZESUŃ 

3010 REM procedura dokunuje przesuni 
ecia wskazanego klocka w wolne miejsce 
3020 DX=PX+PY*4 
3030 IF NOT (PY-%1<%0) 

3040 IF TAB(DX-4)=%0 

3050 DY=-4 

3060 TAB(DX+DY)=TAB(DX) 

3070 EXEC ZMIEŃ 

3080 ENDIF 

3090 ENDIF 

3100 IF PY+%1<4 

3110 IF TAB(DX+4)=%0 

3120 DY=4 

3130 TAB(DX+DY)=TAB(DX) 

3140 EXEC ZMIEŃ 

3150 ENDIF 

3160 ENDIF 

3170 IF NOT (PX-%1<0) 

3180 IF TAB(DX-%1)=%0 

3190 DY=-%1 

3200 TAB(DX+DY)=TAB(DX) 

3210 EXEC ZMIEŃ 

3220 ENDIF 

3230 ENDIF 

3240 IF PX+%1<4 

3250 IF TAB(DX+%1)=%0 

3260 DY=%1 

3270 TAB(DX+DY)=TAB(DX) 

3280 EXEC ZMIEŃ 

3290 ENDIF 

3300 ENDIF 
3310 ENDPROC 

3320 - 

3500 PROC KLAWISZ 

3510 REM procedura zwraca wartość 1 
lub -1 w zmiennych dx i dy w zaleznosc 
i od tego, który klawisz byl wciśnięty 
3520 REM lub 0 w obu zmiennych jeśli 
wciśnięto spacje 
3530 REPEAT 
3540 GET KEY 

3550 LG=(KEY=32)+(KEY=43)+(KEY-45) 

+(KEY=42)+(KEY=61) 

3560 UNTIL LG 

3570 DX=(KEY=42)-(KEY=43) 

3580 DY=(KEY=61)-(KEY=45) 

3590 ENDPROC 

3600 - 

4000 PROC RYSUJ 

4010 REM procedura rysuje "kursor" w 
polu px,py 

4020 WX=XX+PX* 2 3+% 2:WY=YY+PY* 2 3+% 2:D 

L=18 

4030 EXEC KWADRAT 
4040 ENDPROC 

4050 - 

4100 PROC SPRAWDŹ 

4110 REM sprawdzenie, czy klocki sa 
dobrze ułożone 

4120 REM jeżeli tak, to po wyjściu z 
procedury lg=l 
4130 LG=% 1 


4140 FOR X=%0 TO KL-%2 
4150 LG=LG*((TAB(X+%1)-TAB(X))=%1) 

4160 NEXT X 
4170 ENDPROC 

4180- 

5000 PROC RUCH 

5010 REM sterowanie gra 

5020 PX=%0:PY=%0:EXEC RYSUJ 

5030 REPEAT 

5040 EXEC KLAWISZ 

5050 IF DY+DX 

5060 COLOR %0 

5070 DL=18 

5080 EXEC KWADRAT 

5090 COLOR %1 

5100 IF (PX+DX>=%0) AND (PX+DX<4 

) THEN PX=PX+DX 

5110 IF (PY+DY>=%0) AND (PY+DY<4 

) THEN PY=PY+DY 

5120 EXEC RYSUJ 

5130 ELSE 

5140 IF TAB(PX+PY*4)<>%0 THEN EX 

EC PRZESUŃ 

5150 ENDIF 

5160 EXEC SPRAWDŹ 

5170 UNTIL LG 

5180 TEXT 40,130,"Koniec! Wreszcie t 
ego dokonałeś!" 

5190 ENDPROC 

5200 - 

6000 PROC ZMIEŃ 

6010 REM zmiana położenia klocka na 
planszy 

6020 TAB(DX)= % 0 

6030 DL=23 

6040 SX=XX+PX*DL+4 
6050 SY=YY+PY*DL+7 
6060 TEXT SX,SY," " 

6070 X=PX+DY*(ABS{DY)=1) 

6080 Y=PY+SGN(DY*(ABS(DY)=4)) 

6090 SX=XX+X*DL+4 
6100 SY=YY+Y*DL+7 
6110 WART=TAB(X+Y*4) 

6120 TEXT SX+4*(WART<10),SY,WART 
6130 RUCH=RUCH+%1 

6140 TEXT 60,120,RUCH 
6150 ENDPROC 

6160- 

6500 PROC SPYTAJ 

6510 TEXT 30,138,"Chcesz spróbować j 
eszcze raz (T/N)?" 

6520 REPEAT 
6530 T$=INKEY$ 

6540 UNTIL T$=”n" OR Tę=“N" OR T$="t 
" OR T$="T" 

6550 KONIEC=(T$=“t") OR (T$="T“) 

6560 ENDPROC 

6570 - 

9999 LIST "D:gra2.txl" 
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Poprzedni odcinek zakoń 
cżyłem kontrowersyjnym zapew¬ 
ne dla niektórych zdaniem Wię¬ 
kszość początkujących (i nie tyl¬ 
ko) użytkowników ATARI utożsa¬ 
mia korzystanie z edytora ekra- 
nowego z pracą w basicu Jest to 
pogląd tylko po części uzasadnio 
ny. Edytor ekranowy dla użyt 
kownika jak i dla programów ja¬ 
wi się jako wbudowane w kom¬ 
puter urządzenie o symbolu we¬ 
wnętrznym E. i jest nąjczęściej 
używany do komunikacji z użyt 
kownikiem. Pod względem logi 
cznym nie różni się on zbytnio od 
magnetofonu (C.) esy napędu 
dyskietek (D:). Może to zabrzmieć 
dziwnie, ale wszystkie urządzenia 
pozwalają na realizację podo¬ 
bnych funkcji Do podstawowych 
należą operacje zapisywania i od 
czytywania danych. Gdy po włą¬ 
czeniu komputera pojawia się na¬ 
pis READY oznacza to, iz kontro¬ 
lę nad komputerem przejął inter¬ 
preter języka BASIC i komuniku¬ 
je się on z nami przez stand¬ 
ardowe urządzenie wejścia/wy¬ 
jścia E czyli edytor ekranowy 
Komunikuje, czyli przekazuje 
nam na przykład informacje 
o błędach (równie dobrze mógłby 
to robić przy pomocy drukarki) 
i oczekuje na polecenia. Pier¬ 
wszym sygnałem od interpretera 
jest właśnie napis READY który 
oznacza po prostu GOTÓW. Po 
wypisaniu tego słówka na ekra¬ 
nie, interpreter chce poznać na¬ 
szą reakcję i przekazuje na chwiię 
kontrolę do urządzenia E: byśmy 
mogli określić czego od niego 
oczekujemy Od tego momentu 
zaczyna działać klawiatura, i mo¬ 
żemy dowoli się nią rozkoszować 
aż do naciśnięcia klawisza RE 
TUKN Użycie klawisza RETURN 
(jak i BREAK) jest dla procedury 
obsługuj ąoej edytor ekranowy 
(handlera) sygnałem, że należy 
zakończyć pracę i powrócić do 
programu nadrzędnego (inter¬ 
pretera). Po tym fakcie zaczyna 
żmudną pracę interpreter (poi. 


tłumacz) języka BASIC usiłując 
zrozumieć i wykonać wydaną mu 
komendę Wbudowany basie mo¬ 
że pracować w dwóch trybach: 
rozpoznawać komendę i natych 
miast ją wykonywać lub jeżeli zo 
stała poprzedzona liczbą od O do 
32767 (numerem wiersza) tylko 
sprawdzać jej poprawność pod 
względem składniowym i odkła¬ 
dać wykonanie na później Gdy 
takich komend uzbiera się więcej 
możemy mówić o programie, któ 
ry może być wykonywany ko 
menda za komendą według kolej¬ 
ności numerów wierszy. Tyle nie 
zbędnej teorii. Spróbujmy nieco 
zaprsyjaźnić się z dialektem BA 
SICu wbudowanym do naszego 
komputera 

Na początek wypadałoby 
zapoznać się z elementami tegoż 
języka Oprócz słów kluczowych 
(komend, funkcji, operatorów) 
możemy używać stałych i zmien¬ 
nych. Zarówno stałe jak i zmień 
ne możemy podzielić ogólnie na 
liczbowe i tekstowe Stałą liczbo 
wą jest po prostu liczba z zakresu 

B7 07 

-B 99999999* 10 do 9 00000090* LO , 

co w zapisie komputerowym wy¬ 
gląda -e ee99ee99E-i-e7 do 

9.99999999E+97, natomiast sta¬ 
ła tekstowa to ciąg dowolnych 
znaków ujęty z obu stron w 
Zmienna reprezentuje kawałek 
pamięci z przyporządkowaną na¬ 
zwą, którego zawartość może być 
modyfikowana w czasie działania 
programu lub w trybie bezpo¬ 
średnim. Nazwa zmiennej musi 
spełniać określone warunki* mo¬ 
że się składać z Eter. cyfr i znaku 
_, z tym, że pierwszym znakiem 
musi być htera. Zmienne liczbowe 
można nąjogólniej podzielić na 
proste i tablicowe Zmienna pro¬ 
sta wystarcza do zapamiętania 
jednej liczby i nie wymaga wcześ¬ 
niejszego definiowania. Przyjmu¬ 
je się, że pierwsze użycie danej 
zmiennej jest jednoznaczne z jej 
zdefiniowaniem i jeżeli nie jest to 
instrukcja przypisania to zmien¬ 


na automatycznie przyjmuje war¬ 
tość O. Zmienna tablicowa jest to 
struktura pozwaląjąca na zapa¬ 
miętanie wielu wartości tego sa¬ 
mego typu (liczbowego) i odwoły¬ 
wanie się do nich przy pomocy tej 
samej nazwy z podaniem tzw. in¬ 
deksu, czyli pozycji w tablicy. 
Tablica wymaga definiowania 
przed użyciem. Czyni się to ko¬ 
mendą DŁM nazwa(rozmiar), gdzie 
nazwa odpowiada opisanej defini¬ 
cji, a rozmiar jest to stała czy 
zmienna określąjąca ilość możli¬ 
wych do zapamiętania danych. 
W ATARI BASIC tablica może 
mieć maksymalnie dwa wymiary, 
które określa się oddzielone prze¬ 
cinkami. Przykładowo zdefiniuje¬ 
my tablicę potęg dwójkowyoh 
czterech kolejnych liczb całkowi - 
tyoh: DIM POTĘGI(4). Pomijąjąc 
narazie problem wypełnienia tej 
tablicy mogłaby ona wyglądać 
tak: 


indeks 

wartość 

1 

2 

2 

4 

3 

8 

4 

16 


Element POTĘGI(3) w tym wy¬ 
padku jest to liczba 8 

Zostały nam do omówienia 
zmienne tekstowe Jest to spe¬ 
cjalny rodzaj zmiennej tablicowej, 
której nazwa musi kończyć się 
znakiem $ (np. A$). Jest to tabli- 
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ca jednowymiarowa, która wyma¬ 
ga definiowania komendą DIM. 
Można w niej zapamiętać napisy 
bądź dane o elementach jednobąj- 
towych. 

Oprócz stałych i zmien¬ 
nych używane są też wyrażenia 
arytmetyczne. W skład wyrażenia 
mogą wchodzić stałe, zmienne, 
funkcje i operatory. Operatory są 
to znaczki symbolizujące operacje 
matematyczne. Mamy więc do 
dyspozycji: 

- dodawanie + 

- odejmowanie - 

- mnożenie * 

- dzielenie / 

- potęgowanie ~ 

Działania wykonywane są zgod 
nie z zasadami matematycznymi 
w kolejności- potęgowanie, mno¬ 
żenie, dzielenie, dodawanie, ode¬ 
jmowanie o ile nie zostały użyte 
nawiasy, które mąją najwyższy 
priorytet. 

Pora na porcję wiadomości 
praktycznych 

Zacznijmy może od rożka 
zów operujących na wspomnia¬ 
nym edytorze ekranowym. Będą 
to PRINT, POSITION, INPUT, 

PRINT lista parametrów, iub w skró 
cle PR. tudziez ? 

Słówko to oznaoza w wol¬ 
nym przekładzie drukowanie. 
Obecne jego użycie ma mało 
wspólnego z drukarką, zostało 
ono jako podzwonne czasów gdy 
komputery były podłączane do 
specjalnych konsoli złożonych 
z klawiatury i drukarki jako pod 
stawowych urządzeń wejścia/wy¬ 
jścia. PRINT wymaga sprecyzo¬ 
wania obiektu który ma być wy¬ 
świetlony, czyli podania parame 
tru. W odróżnieniu od funkcji sto¬ 
sowanych w ATARI BASIC, para¬ 
metrów do tej procedury nie na¬ 
leży ujmować w nawiasy. PRINT 
wypisuje dane bądź napisy począ¬ 
wszy od bieżącej pozycji kursora 
na ekranie. Należałoby wreszcie 
powiedzieć co możemy "wydruko¬ 
wać": 

stałe - liczby lub napisy. Napis 
jest tu rozumiany jako stała te¬ 


kstowa. Uwaga praktyczna: pod¬ 
czas wpisywania tekstu, jeżeli za 
nim nie stoi żadna komenda lub 
inny parametr, można pominąć 
kończący znaczek ". Przykład: 
PRINT 8 

T 'Tajemnice Atari" 

PR.”hhhhalo 

zmienne - wartość podanej 

zmiennej tekstowej lub liczbowej. 

Przykład 

PR. X 

PRINT B$ 

wyrażenie arytmetyczne - war¬ 
tość wyrażenia. Przed wypisa¬ 
niem zostanie obliczony wynik, 
który zostanie wyświetlony. 
Przykład: 

? 12*3 

PRINT 2 ~ 7+ 1538/A 

Standardowo po wypisaniu 
danych PRINT powoduje prze¬ 
skok kursora do następnej linii 
ekranowej. Od tej reguły są jed¬ 
nak wyjątki. Po jednej komendzie 
PRINT może być kilka parame¬ 
trów oddzielonych od siebie prze¬ 
cinkami lub średnikami. Średnik 
powoduje "zlepianie” kolejno wy¬ 
pisywanych danych, natomiast 
przecinek rozdziela je w następu¬ 
jący sposób: Od początku napisu 
przed przecinkiem standardowo 
odliczane jest dziesięć pozycji 
w prawo i jeżeli poprzedni napis 
się skończył to wypisywana jest 
następna dana, jeżeli natomiast 
pierwszy tekst miał więcej zna¬ 
ków, to doliczane jest następne 
10 pozycji itd. aż do skutku. 
Przecinek bądź średnik może tak¬ 
że rozpoczynać bądź kończyć listę 
parametrów. W pierwszym przy¬ 
padku działanie jest oczywiste, 
w drugim natomiast powoduje, że 
po wypisaniu wszystkiego nie na¬ 
stąpi przeskok kursora do nastę¬ 
pnej linii, tylko działanie odpo¬ 
wiednie do zastosowanego sepa¬ 
ratora 
Przykład: 

PRINT "ALA";"MA","KOTA’, 
PRINT "?" 

Uzupełnienie instrukcji 
PRINT podam jeszcze przy okazji 
omawiania różnych trybów grafi¬ 
cznych, a teraz zajmy my się ko¬ 
mendą POSITION. 


POSITION x,y; w skrócie POS. 

Pozwala na ustawienie po¬ 
zycji kursora. Parametr x jest nu¬ 
merem kolumny, zaś y numerem 
wiersza. W trybie O wyświetlania 
obrazu x może przyjąć wartości 
0-39, y zaś 0-23. Prooedurę uży¬ 
wa się wraz z PRINTem do wypi¬ 
sywania danych w konkretnych 
miejscach na ekranie. Uwaga: 
używając procedury POSITION 
można umieszczać napisy w dwu 
pierwszych kolumnach ekranu, 
oo normalnie nie jest możliwe. 
Przykład: 

POSITION 0,0 
PRINT "ALA” 

W czasie działania każdy 
program oprócz wyprowadzania 
danych musi mieć możliwość ich 
pobierania W ATARI BASIC słu¬ 
ży do tego celu komenda INFUT. 

INPUT lista zmiennych, w skrócie I. 

INPUT pozwala na wpro¬ 
wadzanie w trakcie działania pro¬ 
gramu różnych danych. Lista 
zmiennych jest to jedna lub wię¬ 
cej nazw zmiennych oddzielonych 
przecinkami. Efektem działania 
tej procedury jest wyświetlenie 
na aktualnej pozycji kursora zna¬ 
ku zapytania i oczekiwanie na po¬ 
danie wartości zmiennej, której 
nazwa występuje po słowie IN 
PUT. Koniec wpisywania danej 
należy zaznaczyć klawiszem RE¬ 
TURN. Jeżeli parametrów było 
więoej dane można podawać na 
dwa sposoby: po podaniu każdej 
naciskać klawisz RETURN lub 
podać od razu wszystkie prze¬ 
dzielone przecinkami. Po wyko¬ 
naniu procedury zmienne wymie¬ 
nione po słowie kluczowym przyj¬ 
mują podane z klawiatury warto¬ 
ści. 












Już dobrych kilka lat temu utrwalił się pogląd, 
że ATARI nie ma nic do zaoferowania w dziedzinie 
dźwięku. COMMODORowcy pysznili się tyleż 
efektownymi, co bezużytecznymi programami 
demonstracyjnymi, a ATARowcy z rezygnacją 
opuszczaii głowy... Myślę jednak, że wleie zaniedbań 
leżało nie po stronie konstrukcji komputera, ale po 
stronie braku właściwego oprogramowania. Nikt jakoś 
nie kwapił się do uzupełnienia tej luki na rynku, aż 
pojawił się AUTOMAT PERKUSYJNY... 


Obsługa i działanie AUTOMATU 
PERKUSYJNEGO oparte są na takiej samej 
zasadzie, na jakiej działają profesjonalne 
urządzenia firm Roland czy Yamaha Posługiwanie 
się AUTOMATEM nie nastręcza trudności, z jakimi 
mamy do czynienia obsługując inne dostępne na 
rynku programy; ponadto doświadczenie zdobyte 
podczas obcowania z AUTOMATEM można 
z powodzeniem wykorzystać w późniejszej pracy na 
■dużych" urządzeniach. Jest to program, który 
równie dobrze nadaje się dla osób niewiele 
mających wspólnego z muzyką, jak i dla tych, którzy 
potraktować go zechcą nieco poważniej. Łączy 
w sobie cechy programu edukacyjnego, 
użytkowego i - przede wszystkim - rozrywkowego. 

Omówię - z konieczności nieco pobieżnie 
- podstawowe możliwości AUTOMATU Komponowanie 
utworów odbywa się na zasadzie "składania" 
z pojedynczych, wzorcowych taktów Najpierw 
komponujemy kilka różnych wzorów pojedynczych taktów 
[ang pattern], a nastąpnie wzory te powielamy tworząc ich 
'ciąg" - utwór [ang song] Do dyspozycji mamy 8 różnych 
brzmień perkusyjnych Bass drum, Snare drum (werbel), 
Middle tom, Low tom, Rimshot, Hi-hat closed, Hi-hat open 
i Clap (klaśnięcie). Są to brzmienia najczęściej 
wykorzystywane w nowoczesnej muzyce popularnej, 
i akurat taki ich zestaw pozwala na maksymalizację efektu 
Trzeba też przyznać, że jak na wyszydzane zawsze 
możliwości dźwiękowe ATARI, bębny te, dzięki 
zastosowaniu techniki próbkowania, brzmią bardzo 
realistycznie. 

AUTOMAT pozwala na prowadzenie dwóch 
niazależnych ścieżek, dzięki czemu możliwe jest robienie 
nakładek instrumentów i uzyskanie pełniejszego brzmienia 
Zawarte w programie funkcje pozwalają na: 

• kontrolowanie barwy (stroju) instrumentów, 

• ustawianie tempa utworów (które podawane jest 






BASS 



SNARE DRUM 
- uderzenie 
w membranę 
werbla 


RIMSHOT 
- uderzenie 
w obręcz 
werbla 
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w BPM [ang. Beats Per Minutę], czyli w takich samych 
jednostkach, jakie używane są w profesjonalnych 
automatach), 

• graficzne komponowanie rytmu - dzięki temu nawet 
niewprawny perkusista nie będzie miał problemu 

z wprowadzeniem własnych pomysłów, 

• odsłuch każdego pojedynczego taktu - możliwa jest 
natychmiastowa poprawa ewentualnego błędu, 

• natychmiastowe wymazanie całego taktu, bądź też 
jednego wybranego instrumentu, 

• samodzielne ustalanie długości taktu (metrum): 4/4, 

3/4 itd, 

• kopiowanie poprzedniego taktu - w przypadku, gdy 
chcemy ułożyć nowy takt, który niewiele różni się od 
poprzedniego, i potrzebna jest tylko mała poprawka 

Po skomponowaniu utworu możemy w dowolnym miejscu 
dodać wybrany takt (również na początku), możemy także 
wymazywać takty ze środka kompozycji. Można więc 
dołożyć zapomniany wstęp, czy wyrzucić niepotrzebną 
zwrotkę. Oszczędza to czasu i nerwów - w przeciwnym 
razie konieczne byłoby żmudne wpisywanie całego 
skorygowanego utworu od początku. Warto też zauważyć 
jeszcze jedną niebagatelną zaletę programu: potrafi on 
zmieścić aż do 100 różnych patternów i aż 500 (!) taktów 
w każdym songu. Dzięki temu możliwe jest programowanie 
nawet kilkunastominutowych utworów 

Oczywiście ci, którzy chcą prawdziwego "mocnego'' 
uderzenia, będą musieli wyprowadzić sygnał do 
wzmacniacza, gdyż głośnik monitora nie daje zbyt dużej 

siły głosu. 


AUTOMAT PERKUSYJNY to wszechstronny program, 
z którego usług korzystać mogą: 


• osoby niewykształcone muzycznie, które poznać 
będą mogły podstawowe tajniki rytmu, 

• muzycy-amatorzy, którym AUTOMAT posłuży jako 
doskonały (i nie mylący się !) akompaniator, 

• zespoły muzyczne, które pokuszą się o coraz 
modniejszą współpracę z “komputerowym 
muzykiem", 

• osoby zamierzające korzystać z profesjonalnych 
automatów, a którym program ten pozwoli na 
zapoznanie się z podstawami obsługi i pierwsze próby 
komponowania. 


• wszyscy inni, dla których zabawa w perkusistę jest po 
prostu atrakcyjna. 


D.K. 
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Oto kolejne trzy plęclolinljkowce. 


1. Mlnl-Mai (minimum programu - maTimnm możliwo- 
śoi), tak nazwał swój program Janusz Korczak z Bielska- 
Białej. Program ten poszerza edytor ekranowy Atari o kil¬ 
ka nowych funkcji. Oto one: 

sposób wywołania efekt 


CONTROL+O 


HELP 


CONTROL+e 


8HlFT+x 


Powoduje wyłączenie obrazu. Po tej 
operacji wszystkie czynności 
komputera przebiegąją o około 
30% szybciej 

Przywraca wyświetlania obrazu 
(zamiast klaw isza HELP można 
wcisnąć inny, dowolny klawisz, 
lecz powoduje to pojawienie się 
odpowiedniego znaku na ekranie). 

Zmienia zestaw znaków (standardo¬ 
we - międzynarodowe). Aby zaobser¬ 
wować działanie tej funkcji należy 
napisać kilka znaków uzyskiwanych 
przez naciśnięcie kombinacji 
CONTROL -i-znak, Zamiast znaków 
międzynarodowych można uzyskać 
inny zestaw poprzez zmianę 
POKE 619,804 na POKE 619,X, 
gdzie X jest numerem strony, 
od której zaczyna się nowy zestaw. 

Włącza i wyłącza dźwięk klawiatury. 


SHIPT+z 


Blokuje i odblokowuje działanie 
klawiatury. 


SHIFT+CAPS Wyświetla na pozycji kursora napis: 

”? PEEK(oeo)+ 2 oe*PEEK(oe i)". 
Dane do napisu znajdują się 
w S wierszu programu (zapisane 
w kodach ASCII). Zmienna L na 
końcu pierwszego wiersza zawiera 
liczbę znaków napisu. Wyświetlany 
napis małna łatwo zmieniać poprzez 
zmianę danych w wierszu B wpisując 
długość napisu do zmiennej L 
i zmieniając liczbę o wartości 80 
w wierszu 4 na wartość równą 
długości nowego tekstu. Maksymalna 
długość tekstu może wynosić 
800 znaków. 


SHIFT+RETURN Efekt podobny jak 8HIFT+CAPS, 

ale na końcu umieszczany jest znak 
RETURN. Powoduje to natychmiasto¬ 
we wykonanie polecenia, lub zatwier¬ 
dzenie danej linii programu. 

POKE 31009,184 - powoduje 
uaktywnienie SHIFT+CAPS. 



POKE 31009,76 - uaktywnia 
SHIFT+RETURN. Na początku w tej 
komórce znajduje się wartość 184. 
Do komórki tej można wpisać 
dowolną wartość odpowiadającą 
kodowi wybranego klawisza, którego 
naciśnięcie spowoduje pojawienie się 
napisu. 8HIFT+CAPS i 8H1FT+RE- 
TURN mąją szerokie zastosowanie. 
Mogą powodować wyświetlenie 
dowolnego napisu, fragmentu pod¬ 
programu, uruchamiać program, 
wywoływać podprogram ltp. 


Opis programu: 


Program korzysta z przerwania klawiatury (z procedury 
CPUTRQ). Przed tą procedurą umieszczony jest program 
obsługujący różne kombinacje klawiszy. Sama procedura 
jest przeniesiona z systemu operacyjnego do pamięci 
RAM i odpowiednio zmodyfikowana (wiersze 1,8). W wier¬ 
szu drugim wykonana jest zmiana wektora przerwania 
(...POKE C80,0:POKE 081,1...). Wiersze 3 14 zawierąją da¬ 
ne do programu w języku maszynowym. Wiersz O, to dane 
tekstu w kodach ASCII. 


■JtŚ 1 FOR A=30976 TO 31028:READ S:POKE A,S 
:NEXT A:FOR A=0 TO 166:POKE 31029+A,PE 
EK(64541+A):NEXT A:POKE 31179,133:L=25 
m 2 POKE 31180,121:POKE 520,0:POKE 521,1 
21:POKE 31049,87:POKE 31145,157:POKE 3 
1149,155:FOR A=31197 TO 31196+L:READ S 
W 3 POKE A,S:NEXT A:POKE 619,204:DATA 13 
8,72,152,72,169,20,141,217,2,169,2,141 
PP ,218,2,173,9,210,201,86,208,8,173,219 
XX 4 DATA 2,73,1,141,219,2,173,9,210,201, 
' 124,208,17,162,0,189,221,121,134,209,3 
ŹJ ' 2,176,242,166,209,232,224,25,208,241 

ftł# 5 DATA 63,32,80,69,69,75,40,53,54,48,4 
|P 1,43,50,53,54,42,80,69,69,75,40,53,54, 
49,41 



>x : : 
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E - sposób użycia miniaturowego 
edytora 

Edytory tekstów są programami 
przeznaczonymi do wpisywania, 
korekty i częściowo składu te¬ 
kstów, Poniżej przedstawiamy 
krótki i prosty, ale spełniający 
podstawowe wymagania edytor, 
który z pewnością przyda się na 
przykład przy redagowaniu do¬ 
mowej korespondencji. Pierwot¬ 
nie powstał do redagowania pli¬ 
ków typu "batch" w Sparta Dosie. 
Po dokładnym przepisaniu listin¬ 
gu należy zgrać go na taśmę lub 
dyskietkę wykorzystując do tego 
program "Zgrywus” Poprawnie 
zgrany program wczytuje się do 
komputera właściwą dla formatu 
zgranego programu instrukcją 
(szczegóły w opisie "Zgrywusa") 
Redagowanie tekstu polega na 
wprowadzaniu znaków z klawia¬ 
tury Poruszanie się kursorem po 
ekranie umożliwiąją cztery klawi 
sze opatrzone strzałkami Prócz 


tego istnieją tylko trzy rozkazy 
specjalne, wprowadzane przez 
jednoczesne naciśnięcie trzech 
klawiszy: 

SHIFT/CONTROL/< - wczytanie 
tekstu z urządzenia zewnętrznego 
(C: - z magnetofonu, D -.nazwa - ze 
stacji dysków); 

SHIFT/CONTROL/ > - zapis te¬ 
kstu na urządzeniu zewnętrznym 
(analogicznie jak w przypadku 
poprzedniego rozkazu C: - na ka¬ 
setę, D :nazwa - na dysk); 
SHIFT/CONTROL/ESC powrót 
do programu nadrzędnego (np. 
DOS COS td.) 

W dwóch pierwszych przypad¬ 
kach przy korzystaniu ze stacji 
dysków należy uzupełnić polece¬ 
nie o nazwę pliku nie zapomina¬ 
jąc o specyfikacji D:, zaś przy ko¬ 
rzystaniu z magnetofonu wystar 
czy ustawić kasetę we właściwym 
miejscu, wydać odpowiedni roz¬ 
kaz i wpisać spedyfikację urzą¬ 


dzenia zewnętrznego jako C 
Możliwe jest oczywiście wydruko 
wanie zredagowanego tekstu 
Wykonuje się to rozkazem zapisu 
tekstu na urządzenie zewnętrzne 
(SHIFT/CONTROL/>), zaś jako 
specyfikację podąje się P.. Specy 
Akacja E powoduje wypisanie te¬ 
kstu na ekranie 

Długość wiersza ograniczona jest 
do 40 (30 znaków tekstu + znak 
EOL) W przypadku wczytania te¬ 
kstu sformatowanego inaczej 
E "łamie" dłuższe wiersze W eks 
tremalnych przypadkach (długie 
pliki binarne) może to trwać bar¬ 
dzo długo Edytor nie jest nieste¬ 
ty wyposażony w zestaw polskich 
liter Nie oznacza to oczywiście, 
że nie można ich w edytorze wy¬ 
korzystywać W jednym z kolej 
nych numerów TA zaprezentuje 
my program instalujący zestaw 
polskich znaków na ekranie 
i drukarce 

Tomasz Pazdan 




E 

WIŚNIEWSKI 


FA 

1 REM - 

Z<7 

2 REM : 

Łit 

3 REM : au 

FD 

4 REM - 

UP 

1000 

REM - 

FX 

1010 

DATA 

XM 

1020 

DATA 

PS 

1030 

DATA 

oo 

1040 

DATA 

CM 

1050 

DATA 

CP 

1060 

DATA 

Fk 

1070 

DATA 

CS 

1080 

DATA 

QX 

1090 

DATA 

mi 

1100 

DATA 

VP 

1110 

DATA 
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OT 

1120 

DATA 

0a084ac960b006e91fb0026960 

fiL 

1650 

DATA 

H 

1130 

DATA 

28900209806084e4a90085e085 

m 

1660 

DATA 

RC 

1140 

DATA 

ela207f806e4a5e065e085e026 

& 

1670 

DATA 

JCD 

1150 

DATA 

elcalOf3d8604820bf80684a4a 

RB 

1680 

DATA 

m 

1160 

DATA 

4a4a290f09309980008860a210 

WE 

1690 

DATA 

8V 

1170 

DATA 

2056e41014209c80a90c20e780 


1700 

DATA 

8V 

1180 

DATA 

a008a5e020b680a5el20bf80ac 

XJ 

1710 

DATA 

TA 

1190 

DATA 

530360a8a203b9e0849581a920 

;TH 

1720 

DATA 

$H 

1200 

DATA 

958588cal0f360981865e085e0 


1730 

DATA 

BG 

1210 

DATA 

9002e6el601865e2S5e29002e6 

FX 

1740 

DATA 

Htf 

1220 

DATA 

e36020e780a90085e785daa6e6 

0U 

1750 

DATA 

>BH 

1230 

DATA 

a9a0958b205383204e80a6e6c9 

QR; 

1760 

DATA 

ŚS 

1240 

DATA 

9bf032297fc9619006c97bb002 

TB 

1770 

DATA 

hx 

1250 

DATA 

4920c91bf020c97ef012c92190 

OC 

1780 

DATA 

JA 

1260 

DATA 

d6c960b0d2e018b0ce95 8be6e6 

RP 

1790 

DATA 

RC 

1270 

DATA 

10c88af0c5205a81c6e610bec6 

PB 

1800 

DATA 

tes 

1280 

DATA 

daa920958b608d5a03200d81a4 

MM 

1810 

DATA 

oc 

1290 

DATA 

daf001608884Ila9038d5203ad 

Btf 

1820 

DATA 

HA 

1300 

DATA 

df848d5403ade0848d5503a980 

GB 

1830 

DATA 

W 

1310 

DATA 

8d5b0320c880ad5a0309038d52 

OH 

1840 

DATA 

zf 

1320 

DATA 

03addd848d5403adde848d5503 

XD 

1850 

DATA 

RS 

1330 

DATA 

9860203880a99b8d0a85a686e0 

LU 

1860 

DATA 

TW 

1340 

DATA 

20d005a91020e780a90c8d5203 

yjF 

1870 

DATA 

OD 

1350 

DATA 

a2102056e4a98085e70a85daa9 

OR 

1880 

DATA 

RE 

1360 

DATA 

038d0fd260a904205f8110034c 

TL 

1890 

DATA 

HS 

1370 

DATA 

a481a5dad0f920388038ad3002 

RS 

1900 

DATA 

FR 

1380 

DATA 

eddd848d5803ad3102edde84e9 

U» 

1910 

DATA 

VI 

1390 

DATA 

048d5903a2102056e4c088f006 

31 

1920 

DATA 

BY 

1400 

DATA 

20cf804c9c8118addd846d5803 

LF 

1930 

DATA 

RB 

1410 

DATA 

85d6adde846d590385d720a481 

HU 

1940 

DATA 

GE 

1420 

DATA 

a200a99b81d6208c84c028900a 

m 

1950 

DATA 

FH 

1430 

DATA 

a02784d32073824c2c82e6d4d0 

P 

1960 

DATA 

ŁG 

1440 

DATA 

02e6d5a2ce20bl8438a5cee5d6 

P 

1970 

DATA 

WW 

1450 

DATA 

a5cfe5d790d3a5ce85d6a5cf85 

TU 

1980 

DATA 

TK 

1460 

DATA 

d7a5d4d002c6d5c6d4a2074c3a 

TF 

1990 

DATA 

2® 

1470 

DATA 

80a908205f813018a5dad01438 

UF 

2000 

DATA 

jy 

1480 

DATA 

a5d6eddd848d5803a5d7edde84 

LR 

2010 

DATA 

vs 

1490 

DATA 

8d590320c8804ca481a8a5d6cd 

LA 

2020 

DATA 

GL 

1500 

DATA 

3002a5d7ed3102b03d98c99bd0 

DL 

2030 

DATA 

ZR 

1510 

DATA 

06e6d4d002e6d5a4ce8c9e828c 

UG 

2040 

DATA 

GT 

1520 

DATA 

al82a4cf8c9f828ca282a4d3be 

XU 

2050 

DATA 

i>T 

1530 

DATA 

9d82999d828ac8d0f6ae9f82e4 

m 

2060 

DATA 

?T 

1540 

DATA 

d7f008ee9f82eea282d0e7e6d6 


2070 

DATA 

W) 

1550 

DATA 

d002e6d7186018a5ce8dd98269 

JF 

2080 

DATA 

SJ 

1560 

DATA 

018dd682a5cf8dda8269008dd7 

xz 

2090 

DATA 

Gl 

1570 

DATA 

82a4d3b9d58299d582c8d0f7ae 

GG 

2100 

DATA 

HC 

1580 

DATA 

da82e4d7f009eed782eeda824c 

BL 

2110 

DATA 

oy 

1590 

DATA 

d582a5d6d002c6d7c6d660a6db 

TO 

2120 

DATA 

xc 

1600 

DATA 

3018c93cd0034cc681c93ed003 

; 

2130 

DATA 

YV 

1610 

DATA 

4c5182c91bd02f2043806c0a00 

LH 

2140 

DATA 

zo 

1620 

DATA 

a4dad00aa006d9fl84f0258810 

SB 

2150 

DATA 

2Q 

1630 

DATA 

f8a00084dac99bf014c9619006 

m 

2160 

DATA 

CE 

1640 

DATA 

c97bb00245d805d9208c84c027 





9001602073824clc84980aa8b9 
cf8485e2b9d08485e36ce200a5 
5885e2a55985e3a027b9800020 
8980498091e28810f3a9282003 
81a5cc85e0a5cd85ela200a000 
a5e0c5d6a5ele5d7b01fble0c9 
9b08d002a920208980e4d2d006 
C4d3d00245e791e2c828d0e420 
f880a900c028f00591e2c8d0f7 
98200381e8e017d0cl60a9ff85 
da6020ec83b01fa4d3blcec99b 
d00d205884b012a5d4d002c6d5 
c6d420be82208c84c028b00160 
a99b4c7382c6d3186038a4d3d0 
f7a5d005dlfOf420fd834c8584 
206d84b0e9a2ce209a84a5d2f0 
05c6d24c4584a2cc209a844c45 
84e6d31860a4d3blcec99bd0f4 
205884b0f2207f84206184b0ea 
a2ce20bl84a5d2c916b004e6d2 
9005a2cc20bl84a000c4d3f009 
blcec99bf003c8d0f384d31860 
a5d0c5d4a5dle5d560205884b0 
06e6d0d002e6dl60a5d005dld0 
023860a5dCd002c6dlc6d01860 
a90085d31860208c8484d31860 
48a000blcec99bf003c810f768 
60b50085e0b50185elc6ela0ff 
88ble0c99bd0f9c84cc284b500 
85e0b50185ela000ble0c8c99b 
d0£920f880a5e09500a5el9501 
6000b983fd832c84ec831c84be 
83c3830a858b004c6f61645361 
76654661696c456469741blcld 
Ielf7efe000a850a8500000000 
00000b85200000ff9b9ba9608d 
0b8 5 ade70 2 8de002ade802 8de1 
02a90085cfa90085d2a98085d3 
ade70285d4ade80285d538a5d2 
e5d485d0a5d3e5d585dla000f0 
033866cfa5d2c90ba5d3e98590 
036ce70224cf70683027bld285 
ce91d420c985aaf0dec920f017 
C940f0d9c960f0d5290dc908f0 
cf90468a291fc909f03fbld2c8 
c900bld288e9809012bld2c8c9 
0bbld288e985b006a5d0a6dl90 
0724cf30ala900aa85d686d738 
bld2e5d691d420c985bld2e5d7 
91d420c9854c4685bld291d420 
C9854c4685e6d2d002e6d3e6d4 
d002e6d560e002el020b85 
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Prezentowany niżej program słu¬ 
ży do oglądania i poprawiania 
dyskietek. Oczywiście w znacze¬ 
niu "informatycznym" a nie fizy¬ 
cznym. Możemy więc ingerować 
w logiczną zawartość dyskietki, 
czyli oglądać i dowolnie zmieniać 
te dane które są na niej zapisy 
wane przez DOS lub inne progra¬ 
my operujące na pamięci dysko¬ 
wej. Narzędzia przeznaczone do 
zadań tego typu nazywamy moni¬ 
torami. Możemy więc rozróżnić 
na przykład monitor pamięci, słu¬ 
żący do podglądania i zmieniania 
zawartości pamięci (wglądowni- 
ca), czy monitor dyskowy, które¬ 
go doskonałym przykładem jest 
WACIO. Nasuwa się tylko pytanie 
do czego może nam się taka rzecz 
przydać. Oprócz niewątpliwych 
walorów poznawczych jakie ma 
"oglądanie" dyskietki monitor 
dyskowy jest niezastąpionym 'le¬ 
karzem” uszkodzonych logicznie 
plików bądź całych dyskietek. 
Może czasem się zdążyć, że nie¬ 
chcący skasujemy sobie jakiś 
program czy tekst, może przytra¬ 
fić się rzecz jeszcze gorsza- 
w czasie nagrywania jakiegoś pli¬ 
ku nagle "wysiądą korki" lub ze¬ 
psuje się komputer. Wszelkie pró 
by odczytania takiego zbioru bę¬ 
dą kończyły się fiaskiem, mimo iż 
przynąjmniej część potrzebnych 
nam danych na pewno znalazła 
się na dyskietce. W tych wszy¬ 
stkich przypadkach monitor dys¬ 


kowy i odrobina wiadomości po¬ 
trafią zdziałać "cuda". W tym ar¬ 
tykule niestety nie ma miejsca na 
opisywanie niezbędnych w takim 
wypadku czynności, ale dużo nie¬ 
zbędnych informacji na temat 
struktury dysku i formatu pliko¬ 
wego znaleźć można w cyklu ar¬ 
tykułów poświęconych dyskowym 
systemom operacyjnym. Warto 
poeksperymentować na jakiejś 
specjalnie do tego celu założonej 
dyskietce, zmieniając w sektorach 
przeznaczonych na katalog dysku 
bajty statusowe poszczególnych 
plików, czy dane wiążące sektory 
w zbiór Program zapisuje się 
przy pomocy "Zgrywusa" 

Udanych eksperymentów życzy państwu 

M.L, 


Krótki opis programu 

WACIO jest skróconą odmianą 
programu TURBO-WATSON. Jest 
to wygodny monitor dyskowy. 
Zawiera tylko podstawowe funkcje 
monitora dysku 

funkcja wywołanie 

zmiana trybu 

znakowego TAB 

zapis sektora 
z odczytem 

starego 8HEFT/CNTRL/W 


zapis sektora bez 

odczytu SHIFT/CNTRL/P 

odtworzenie starego 

sektora SHIFT/CNTRL/R 

powrót do 

DOS-u 8HIFT/CNTRL/ESC 


Trzy okna na ekranie pozwaląją: 


Okno numeru sektora. 

— wpisać numer sektora, 

— odczytać sektor o podanym 
numerze (RETURN), 

— odczytać poprzedni sektor 

(+). 

— odczytać następny sektor, 
według numeracji (*), 

— odczytać następny sektor 
według następstwa w pliku 
(=)• 


Okno edycji szesnastkowej 
— modyfikować zawartość 
sektora w postaci liczb 
szesnastkowych. 


Okno edycji znakowej: 

— modyfikować zawartość 
sektora w postaci znaków 
ATASCII lub znaków 
"ekranowych". 

Janusz B. Wiśniewski 




,jpk, i rem - 

2 REM : Wacio : 

E»R 3 REM : autor: Janusz B. Wi$niewski : 

'PD 4 REM- 

lś' 1000 REM - Wacio - 

T -fR 1010 DATA ffffe002el02008100819c88ba 
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er 

1020 

DATA 

86cca202200688cal0fa209887 

HA 

1540 

DATA 

XX 

1030 

DATA 

a027b9468891d08810f820a587 

EF 

1550 

DATA 

DR 

1040 

DATA 

a90920fC87a013b96e8891d088 

SI 

1560 

DATA 

m 

1050 

DATA 

lOf8a2ff86df86efe886e986al 

VF 

1570 

DATA 

pc 

1060 

DATA 

86cf86e886d886d386d98ae886 

RS 

1580 

DATA 

ss 

1070 

DATA 

ce86d2a27f9d8080cal0fa202d 

H¥ 

1590 

DATA 


1080 

DATA 

82208c86a9108dd902a9038dda 

GC ; 

1600 

DATA 

. Sft ; 

1090 

DATA 

02200985a5e085e5a5e285e620 

HE 

1610 

DATA 

fx 

1100 

DATA 

8285a9008db602a9408dbe0220 

XX 

1620 

DATA 

8X i 

1110 

DATA 

828720ed86a5e80aaabd928185 

II 

1630 

DATA 

81 

1120 

DATA 

d0bd938185dl208f 8.14c6b816c 

EG 

1640 

DATA 

¥tf 

1130 

DATA 

d0006482dd823483a5ca302729 

£1 

1650 

DATA 

fp 

1140 

DATA 

07a8d00320fa879885cd0a65cd 

m 

1660 

DATA 

m 

1150 

DATA 

6905a8a5e720c28718a5cd691e 

vz 

1670 

DATA 

GN 

1160 

DATA 

a8a5e724df100320b38791d0a4 

AS 

1680 

DATA 

JC 

1170 

DATA 

cac8c080f00284ca609848ad0f 

MM 

1690 

DATA 

RQ 

1180 

DATA 

d28d0ad23004a08c84302920d0 

YJ 

1700 

DATA 

MH 

1190 

DATA 

04a08e8430a538f013ad0dd2c5 

LG 

1710 

DATA 

AP 

1200 

DATA 

3lf004a08f8430a9ff853968a8 

XP 

1720 

DATA 

¥0 

1210 

DATA 

6840ad0dd2a000913285e71865 

MH 

1730 

DATA 

PS- 

1220 

DATA 

316900853Ie632d002e6332098 

MD 

1740 

DATA 

ZH 

1230 

DATA 

81a532c534a533e53590d9a53c 

ZY 

1750 

DATA 

SE 

1240 

DATA 

f006a900853cf0cba9ff8538d0 

m 

1760 

DATA 

GI 

1250 

DATA 

c9a9318d0003a9078d0603a980 

w 

1770 

DATA 

NF 

1260 

DATA 

8d0803a9008d090360a2008eb6 

JU 

1780 

DATA 

XP 

1270 

DATA 

02ca8efc02a9408dbe02a6cc9a 

ow 

1790 

DATA 

m 

1280 

DATA 

4c20f4a5d3290f85d3208c86a9 

m 

1800 

DATA 

m 

1290 

DATA 

ff8dfc0220088720f583c99bf0 

3B 

1810 

DATA 

ZF 

1300 

DATA 

e8c93df01bc92bf00cc92ad024 

JMH 

1820 

DATA 

BP 

1310 

DATA 

e6d2d0d8e6d310d4a5d2d002c6 

Q3 

1830 

DATA 

m 

1320 

DATA 

d3c6d24c5682a5d405d5f0cca5 

RŁ 

1840 

DATA 


1330 

DATA 

d485d2a5d585d34c5682204485 

m 

1850 

DATA 

BC 

1340 

DATA 

90cl202185b0bc4838a5e5e5e0 

m 

1860 

DATA 

MB 

1350 

DATA 

85e738a902e5e785eaa9f046ea 

vu 

1870 

DATA 

GS 

1360 

DATA 

9002a90f85e7a6ea35d295d268 

KB 

1880 

DATA 

BI 

1370 

DATA 

24e730040a0a0a0al5d295d220 

XT 

1890 

DATA 

: o*, 

1380 

DATA 

088720d5854c6482a90085eaa6 

TO 

1900 

DATA 

CD 

1390 

DATA 

cfca300d8a4820d58520d58568 

CI 

1910 

DATA 

EH 

1400 

DATA 

aa4ce382a5ea4a85cf20ed8620 

W 

1920 

DATA 

BQ 

1410 

DATA 

f583204485a4ea90ee202185b0 

KG 

1930 

DATA 

WD 

1420 

DATA 

e948a2f0a5ea4ab002a20f86e7 

TI 

1940 

DATA 

KT 

1430 

DATA 

aabd008025e79d00806824e730 

<JV 

1950 

DATA 

¥D 

1440 

DATA 

040a0a0a0ald00809d008020d5 

m 

1960 

DATA 

OÓ 

1450 

DATA 

854cf382a90085eb85eaa6cfca 

cx 

1970 

DATA 

VM 

1460 

DATA 

300a8a4820d58568aa4c3c83a5 


1980 

DATA 

zx 

1470 

DATA 

ea85cf20ed8620f583a6ebd067 

oz 

1990 

DATA 

BS 

1480 

DATA 

c9fef00ec9fff034c97ed05620 

TG 

2000 

DATA 

KC 

1490 

DATA 

ae854c4983a6cfe4edb0daa9G0 

ZJ 

2010 

DATA 

zs 

150 

DATA 

9d0080e8e4edb009bd00809dff 

MD 

2020 

DATA 

3EK 

15 

DATA 

7f4c6f83a5eff0c3ce7f80ad7f 

GR 

2030 

DATA 

DR 

152^ 

DATA 

80297f 85ed4c4983a4cf c:4edb0 

QY 

2040 

DATA 

FP 

1530 

DATA 

b0a900be00809900808ac8c4ed 

MC 

2050 

DATA 


dOf4a6eff09ec07db09a990080 

e6edee7f80d090204485908ba2 
0086eb24df300320b387a6ea9d 
008020d5854c4983a090c8d0fd 
cela84d017a5d7f013bldc4980 
91dca5e805e9d007a5cbd00320 
ed86a5e805e9d020a9042c0fd2 
d019ad09d2c906f00cc907f008 
c90ff004c90cd006aabd51fb60 
9baefc02e8f0b32083f9a9ffae 
fc028dfC02a4e9d00ee061d003 
4cd384e0ald0034ce8848a29c0 
85d6c9c090458a293faabdSlfb 
c91bf025c970f02ac977f020c9 
72d02ea5d885d2a5d985d3a27f 
bd80809d0080cal0f720ed864c 
d4834c42822049874cd4832068 
874cd483207c874cf2838a293f 
c92cfOf3c927f023c93cf02abd 
51fbc91b9004c9209013c96190 
0cc97bb0088a4dbe02aabd51fb 
0db60260adb60249808db6024c 
cd84adbe0249408dbe02208287 
4cd483207985a6e8e8e003d002 
a20086e8200985fOfOdOOf2079 
85a6e8cal002a20286e8200985 
18290f65e085e085e5a5e285e6 
68684c8285a5e80a0a65e86904 
aaa004bd8e8899e000ca8810f6 
a5e460c930301dc93a3014c941 
3015c947300ac961300dc96710 
09e920e90638e93018603860c9 
lbf00ac91c9004c92090083860 
a98085ebl86029036a6ab00e30 
0620fc854c77852026864c7785 
300620ae854c778520d5851860 
a000a5ec91dc84d76020088718 
a55865e585dca559690085dda6 
e6ca300el8a5dc692885dc9002 
e6dd4c948586d7a000bldc85ec 
60207985a5e5c5e0f012c6e5c6 
eaa5e41007a5ea4a9002c6e54c 
828520d585a5e5c5eld0f74cfc 
85207985a5e5c5elf012e6e5e6 
eaa5e41007a5ea4ab002e6e54c 
828520ae85a5e5c5e0d0f74c26 
86207985a5e2c5e3f013c5e6fO 
12c6e638a5eae90824e41002e9 
0885ea4c8285202686a5e6c5e3 
dOf7fOf2207985a5e3c5e2f013 
c5e6f012e6e618a5ea690824e4 
1002690885ea4c828520fc85a5 
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VH 

2060 

DATA 

e6c5e2d0f7fOf2a4d28c0a03a4 

TT 

2290 

DATA 

8d0203a9804c5086a5df49ff85 

ON 

2070 

DATA 

d38c0b038d0303a980851la5ce 


2300 

DATA 

df20a587a96124df3002a9694d 

NV 

2080 

DATA 

8d01032059e4ac0303101da2af 

RN 

2310 

DATA 

be020db602a02391d060a55885 

HA 

2090 

DATA 

a00fa9218d00d28e01d2a514c6 

KW 

2320 

DATA 

d0a55985dla9284cfc8718a558 

m 

2100 

DATA 

14c614c514d0fcca8810efac03 

OC 

2330 

DATA 

697085d0a559690385dl600a08 

ro 

2110 

DATA 

0360a9008d0403a9808d0503a9 

YB 

2340 

DATA 

C9c0b006e93fb00269c0286a60 

SG 

2120 

DATA 

0085cbad0a0248ad0b02482cl7 

GL 

2350 

DATA 

48290f20cd87684a4a4a4a0910 

KQ 

2130 

DATA 

021010500ea5e9d00aa9cd8d0a 

TE 

2360 

DATA 

c91a9002690691d088604898bc 

CK 

2140 

DATA 

02a9818d0b02a9fe85ca209887 

TE 

2370 

DATA 

8488c891d088c946f0069008a9 

GO 

2150 

DATA 

a94f20fc87a9528d0203a90085 

KV 

2380 

DATA 

4dd006a94ed002a90091d088d0 

VX 

2160 

DATA 

eea940205086688d0b02688d0a 

vx 

2390 

DATA 

fb6891d0a9281865d085d09002 

ST 

2170 

DATA 

02ad7f80297fa4efd002a98085 

Ó* 

2400 

DATA 

e6dl608a480a0aaaa55885d0a5 

AC 

2180 

DATA 

ed200887ac030360a00084ca88 

K? 

2410 

DATA 

5985dlbc838888300620fa874c 

L0 

2190 

DATA 

84cb209887a94f20fc87a4cab9 

CK 

2420 

DATA 

1688bd828820fc87bd858885ca 


2200 

DATA 

008085e7209881d0f420a587a0 

gi 

2430 

DATA 

a946a04720d987a956a04220d9 

m 

2210 

DATA 

03a5cf20c287209887a009a5d2 

KG 

2440 

DATA 

87c6cad0f5a947a04620d98768 

TJ 

2220 

DATA 

20c287a5d320cd87a013ad7e80 

TP 

2450 

DATA 

aa60560073656374ldlO101100 

TQ 

2230 

DATA 

85d420c287ad7d80290385d520 

..'W; 

2460 

DATA 

006e6578741dlllll800006c67 

KC 

2240 

DATA 

cd87a01cad7f80297f20c287a0 

AL 

2470 

DATA 

74681dl616000066696c651dl2 

RH 

2250 

DATA 

25ad7d804a4a4cc287a9808d04 

KZ 1 

2480 

DATA 

140042736d616c6c0037617473 

US 

2260 

DATA 

03a9808d0503e6e9209a86c6e9 

Pfl : : 

2490 

DATA 

6f6e00006279002a22371c0308 

WP 

2270 

DATA 

ac0303100160a5d285d8a5d385 

TU 

2500 

DATA 

10020317100000261607090101 

KM 

2280 

DATA 

d9a9008d0403a9808d0503a957 

MK. 

2510 

DATA 

1003190413901d24041310 


POMIAR POZIOMU 
SYGNAtU ODCZYTU 


Z powodu znacznego zwiększe¬ 
nia tempa transmisji danych me¬ 
toda zapisu i odczytu programów 
w systemie TURBO 2000 wymaga 
dokładniejszego ustawienia skosu 
głowicy w magnetofonie. Znając 
ból, jaki czują użytkownicy próbu¬ 
jąc wczytać coś z kasety nagranej 
na innym magnetofonie postano¬ 
wiłem napisać program, który da 
nam większe szanse zwycięstwa 
w walce z opornym nośnikiem. 

W celu właściwego ustawienia 
skosu głowicy w naszym magne¬ 


tofonie należy wczytać niniejszy 
program i wybrać rodząj posiada¬ 
nego TURBO (albo przez stanar- 
dowe wejście szeregowe, albo 
przez port joysticka). Następnie 
włożyć kasetę z programem na¬ 
granym w systemie TURBO 2000 
i nacisnąć PLAY. Kręcąc śrubką 
przy głowicy musimy doprowa¬ 
dzić do tego, aby wykres był jak 
najmniej postrzępiony. Wskazane 
jest wspomaganie tej czynności 
przez jednoczesne prowadzenie 
nasłuchu sygnału. Aby ułatwić 
manipulowanie śrubokrętem do¬ 




brze jest wyjąć klapkę magnetofo¬ 
nu. Jednocześnie przestrzegam 
przed regulowaniem skosu głowi¬ 
cy w poprawnie sprawujących się 
magnetofonach. W takim przypad 
ku konserwację magnetofonu ra¬ 
dzę ograniczyć do dokładnego wy 
czyszczenia głowic i wałków przy 
pomocy specjalnego płynu lub ka¬ 
sety czyszczącej. Program zapisu¬ 
jemy na kasetę lub dysk przy po¬ 
mocy "Zgrywusa". 


Henryk Cygert / ASF 


FA 

1 

REM - 

AY 

2 

REM : 

BS 

3 

REM : 


JAR POZIOMU SYGNAŁU 
HENRYK CYGERT ASF 


Pomiar poziomu odczytu 
sygnału w Turbo 2000 
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UD 

4 REM : 

. 

RK 

1490 

DATA 

QS 

5 REM : autor: Henryk Cygert /ASF : 

WV 

1500 

DATA 

W 

6 REM- 


WT 

1510 

DATA 

UP 

1000 

REM - 

— Pomiar - 

AX 

1520 

DATA 

RB 

1010 

DATA 

ffff0640bd46707070707042de 

HG 

1530 

DATA 

CU 

1020 

DATA 

450270020202000270700200Of 

m 

1540 

DATA 

m 

1030 

DATA 

OfOfOfOfOfOfOfOfOfOfOfOfOf 

R2 

1550 

DATA 

m 

1040 

DATA 

OfOfOfOfOfOfOfOfOfOfOfOfOf 

QH 

1560 

DATA 

xc 

1050 

DATA 

OfOfOfOfOfOfOfOfOfOfOfOfOf 

EP 

1570 

DATA 

KR 

1060 

DATA 

104 fbe4b4fbe4b4 fbe4b4fbe4b 

PB 

1580 

DATA 

m 

1070 

DATA 

41064070707070421542020202 

BR 

1590 

DATA 

XL 

1080 

DATA 

02020202020202020202020202 

QW 

1600 

DATA 

RB 

1090 

DATA 

0202024151407240954078ad0f 

SR 

1610 

DATA 

XJ 

1100 

DATA 

d22910fOf9a200e83038ad0fd2 

BA 

1620 

DATA 

HB 

1110 

DATA 

2910d0f6a200e8302cad0fd229 

DE 

1630 

DATA 

Hh 

1120 

DATA 

lOfOf68a586078a200e8301cad 

IfJ 

1640 

DATA 

0¥ 

1130 

DATA 

00d330f8a200e83012ad00d310 

BO 

1650 

DATA 

CN 

1140 

DATA 

f8a200e83008ad00d330f88a58 

JjR 

1660 

DATA 

VT 

1150 

DATA 

60a901586048a900a2139dc003 

AD 

1670 

DATA 

VI 

1160 

DATA 

calOfa68484a4a4aa8aaa9ff88 

AO 

1680 

DATA 

PV 

1170 

DATA 

300699c0038810fa682907a8b9 

AT 

1690 

DATA 

PM 

1180 

DATA 

e3409dc003600080c0e0fOf8fc 

AP 

1700 

DATA 

Oli 

1190 

DATA 

fea9be85801869208582a94685 

EG 

1710 

DATA 

RŁ 

1200 

DATA 

8169008583a228a013bl829180 

DD 

1720 

DATA 

PD 

1210 

DATA 

8810f9a58018692085809002e6 

OF 

1730 

DATA 

3CG 

1220 

DATA 

81a58218692085829002e683ca 

SF 

1740 

DATA 

GJ 

1230 

DATA 

d0dea013b9c00391808810f860 

oJf 

1750 

DATA 

DR 

1240 

DATA 

a900d006ee2c41207d45a9408d 

. P ' 

1760 

DATA 

BW 

1250 

DATA 

0ed4a9808df4028d09d4a9008d 

TB 

1770 

DATA 

vw 

1260 

DATA 

44C2a9068dc802a9008dc602a9 

FH 

1780 

DATA 

wo 

1270 

DATA 

be8580a9468581a000a9009180 

SC 

1790 

DATA 

WP 

1280 

DATA 

C8d0fbe681a245e8e481b0f0a9 

KH 

1800 

DATA 

SC 

1290 

DATA 

218d2f02a9068d3002a9408d31 

3L 

1810 

DATA 

BY 

1300 

DĄ.TA 

02a9388d02d3a9608d00d3a934 

ZA 

1820 

DATA 

HB 

1310 

DATA 

8d02d3a514c514f0fca9008d0e 

KV 

1830 

DATA 

<JM 

1320 

DATA 

d420954020bb4020eb40ad0fd2 

CE 

1840 

DATA 

JR 

1330 

DATA 

2908d0034cdb41ad0fd22904d0 

XX 

1850 

DATA 

fj| : 

1340 

DATA 

07ad09d2c921f0034c9441a951 

VE 

1860 

DATA 

OR 

1350 

DATA 

8d30028d02d4a9408d31028d03 

Tc*1' 

1870 

DATA 

ZF 

1360 

DATA 

d4a9228d2f028d00d4ad0fd229 

xs 

1880 

DATA 

QŁ 

1370 

DATA 

04fOf94c2b4100adda4149018d 

zr 

1890 

DATA 

DP 

1380 

DATA 

da410aa8b96e408d9541b96f40 

<Jx 

1900 

DATA 

RE 

1390 

DATA 

8d9641adda410a0a0aa8a200b9 

BB 

1910 

DATA 

YG 

1400 

DATA 

Ce459d4f46c8e8e00890f4a200 

UQ 

1920 

DATA 

VG 

1410 

DATA 

a080eaeacad0fb88d0f84c2b41 

AB j 

1930 

DATA 

per 

1420 

DATA 

000030726f6772616d0074656e 

"Mi 

1940 

DATA 

JB 

1430 

DATA 

00734c755a7900646f00757374 

0 V 

1950 

DATA 

TB 

1440 

DATA 

617769656e696100674c6f7769 

MQ 

1960 

DATA 

OB 

1450 

DATA 

0d63790077006d61676e65746f 

OB 

1970 

DATA 

PP 

1460 

DATA 

666f6e6163680070727a797374 

PV 

1980 

DATA 

BP 

1470 

DATA 

6f736f77616e79636800646f00 

GC 

1990 

DATA 

SX 

1480 

DATA 

00007773704f4c707261637900 

YD 

2000 

DATA 
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Git 2010 DATA 45637a6e696b610080b4alaaa5 
STA 2020 DATA adaea9a3a580alb4alb2a9800e 
3i 2030 DATA 000000000000004143454c4e4£ 
El 2040 DATA 535a00003c063e663e030c003c 
GX 2050 DATA 6060603c0000003c667e603c06 
KB 2060 DATA 0038181c38183c000c007c6666 
Vg 2070 DATA 666600Oc003c6666663c000c00 
A3f 2080 DATA 3e603c067c0018007e0cl8307e 
m 2090 DATA 00a9e0a08085838481a9008580 
3M 2100 DATA 8582a204a000bl829180c8d0£9 
DM 2110 DATA e681e683cad0£2a9828581a200 
GC 2120 DATA bd354538e9400a0a0aa88a480a 
BI 2130 DATA 0a0aaabd3d459180e8c8e682a5 
WW 2140 DATA 82c90890£la900858268aae8e0 
GV 2150 DATA 0890d660bacccle3£ae58080aa 
2160 DATA e££9f3f4e9e3eb80b0e£ede9el 
DM 2170 DATA £280f0e££ae9e£ed£580£3£9e7 
EO 2180 DATA eeelcc£580e£e4e3£a£9£4£580 
JE 2190 DATA 80808080808080808080£780b4 
*1 2200 DATA b5b2a2a£809290909080808080 

Al 2210 DATA 808080808080al£5£4e££2809a 
XX 2220 DATA 80a8e5ee£2£9eb80a3£9e7e5£2 
KH 2230 DATA £4808falb3a680808080808080 
SR 2240 DATA 80808080808080b3a8a9a6b480 
JPH 2250 DATA 808d8080808080808080808080 
BK 2260 DATA 80808080808080808080808080 
MB 2270 DATA b3bOala3aaal8O8d80af£0e9f3 
EG 2280 DATA 80£0£2e£e7£2eled£58080a7e4 
AK 2290 DATA elce£3eb809199999180e4ecel 
XI 2300 DATA 8087b4alaaa5adaea9a380alb4 
EL 2310 DATA alb2a987105£5600565el10042 
S>F 2320 DATA 5e30292c2f3400000000000000 
BR 2330 DATA 00000000000000000000e002el 
BO 2340 DATA 02db41 


PROGRAMISTO! 

Napisałeś grę lub program użytkowy 

I chciałbyś się nim podzielić z Innymi 
- napisz do nas. 

Zapraszamy do współpracy wszystkich progra¬ 
mistów i programistki bez względu na preferowany język 
czy przekonania Oferujemy swoje famy każdemu Je¬ 
dynym warunkiem jest przysłanie do redakcji propono¬ 
wanych programów na dyskietce lub kasecie W razie 
przyjęcia do druku informujemy zainteresowanych listow¬ 
nie o propozycjach finansowych i przewidywanym cza¬ 
sie druku Zapewniamy nierozpowszechniame nieprzy¬ 
jętych materiałów Na życzenie odsyłamy kasetę czy 
dyskietkę 

Sprawdź siłę swoich palców • przyślij do nas 
swoje programy! 


Prenumerata Tajemnic 


Począwszy od czerwca przyjmujemy zamówienia 
na prenumeratę Tajemnic Atari. Korzystne zniżki dla od¬ 
biorców hurtowych f półhurtowych. Cenę prenumeraty 
przedstawia tabelka 


<to$4 egzwnptey 

Kaideflo Pum&fu 

WłW 1 

« 3 »tnptejra 

Ut0« 

i 

6.000 

0 % 

a 

4.700 

8 % 

ę 

4.500 

lO % 

4 

4.800 

14% 

Odo© 

4.100 

18% 

lOlwtęócft 

3.800 

04% 


Aby obliczyć należność za zamówienie należy 
pomnożyć ilość zamawianych egzemplarzy gazety przez 
okres prenumeraty liczony w miesiącach i cenę z drugiej 
kolumny tabelki W wypadku zmiany ceny TA będą wy¬ 
syłane do momentu wyczerpania wpłaconych pieniędzy. 
Nowe koszty zamówień półhurtowych będą obliczone 
z zachowaniem stałych ulg podanych w tabelce. W celu 
zamówienia prenumeraty natęży wypełnić czytelnie blan¬ 
kiet wpłaty na konto (dostępny na pocztach i bankach) 
podając na odwrocie czytelnie imię. nazwisko t adres 
zamawiającego oraz ilość egzemplarzy danego numeru 
wraz z okresem prenumeraty Pieniądze naieży wpłacać 
na konto. 

Agencja Wydawnicze "Albatros" 
ul. Wyspiańskiego 11 Rzeszów 

Bank Przemysłowo-Handlowy 
III oddział Rzeszów 326807-3854-136 

Reklamacje dotyczące nieotrzymania określone¬ 
go numeru gazety prosimy wnosić po upływie około 14 
dni od daty ukazania się go w kioskach. Wszelkie Infor¬ 
macje dotyczące nieprawidłowej realizacji prenumeraty 
prosimy kierować listownie na adres redakcji 

Właścicielom sklepów I studiów kompute¬ 
rowych oferujemy dogodne warunki współpracy 
w kolportażu pisma. Zainteresowanych prosimy 
o kontakt listowny na adres: 

Tajemnice Atari 
skr. poczt 702 
35-959 Rzeszów 2 

lub telefoniczny 

teł. 374-71 wew. 250 lub 282 
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-ZDiirsjy 



Z ami eszczanie Zgrywusa stało się regułą. Ząjmuje on 
niestety całą stronę, lecz nie możemy go jeszcze przestać 
drukować. Ciągle zwiększamy nakład pisma, a co za tym 
idzie wielu użytkowników ATARI zetknie się z nim pier¬ 
wszy raz. Większość listingów drukowanych w TA jest 
przystosowanych do współpracy ze ZGRYWUSEM i dlate¬ 
go muszą nam Państwo wybaczyć ten mały ukłon w stro¬ 
nę nowych czytelników. 


Dokładny opis możliwości przedstawiliśmy w marco¬ 
wym numerze pisma. Teraz przypomnimy tylko naj¬ 
istotniejsze jego cechy. 

ZgTywus zapisuje gotowy program w postaci pli¬ 
ku (file), lub programu samodzielnie ładowalnego 
z magnetofonu (BOOT). Nagrywając dany program 
w postaci BOOT ZgTywus dodąje na początku tzw. 
"loader". 

Wydrukowany listing Zgrywusa należy wpisać 
do komputera, a następnie nagrać go instrukcją 
LIST "C:", lub LISTDrZGRYWUS.LST". 

Służy on do zgrywania wszystkich drukowanych 
u nas programów w języku maszynowym, które 
przedstawiać będziemy jako same wiersze DATA 
o numerach od lOOO wzwyż.Tryb postępowania jest 
następujący: 

• przepisujemy wszystkie wiersze drukowanego 
programu; 

• "doczytujemy" do nich Zgrywusa odpowiednio 
komendą ENTER"C:" lub ENTER"D: ZGRY - 
WUS.LST"; 

• zapisujemy kompletny program na dysku lub 
kasecie; 

• jeżeli w pamięci aktywny był generator kodów 
kontrolnych (drukowany w poprzednich TA), to 
naciskamy RESET; 

• komendą RUN uruchamiamy program. 

Po uruchomieniu ZgTywus spowoduje najpierw 
wyłączenie ekranu (przyśpiesza to działanie progra¬ 
mu), a po chwili odmierzanej jednostajnym "pyka¬ 
niem" wyświetli zapytanie o pożądany format zapi¬ 
su. Odpowiadamy naciskąjąc odpowiedni klawisz 
i potwierdzamy RETURNem. Przy wyborze zapisu 
na plik pojawi się pytanie o jego nazwę. Odpowie¬ 
dziami poprawnymi są: D:XYZ.COM, D2: PRO¬ 
GRAM, C:, E: itp. Natomiast po wyborze drugiej 
możliwości program zapyta o nazwę, która ma poja¬ 
wić się w czasie wczytywania programu z kasety. 
Nazwa ta może mieć maksymalnie 40 znaków. 


FA 

EM 

oy 

zs 

FE 

cv 

KJ 

jv 

WK 

BJ 

¥X 

FI 

FI 

SF 

$M 

RC 

DG 

BB 

LT 

HJ 

SA 

KB 

PO 

BK 

(JE 

IB 

2« 

KU 

¥G 

CC 

Ul 

K3 

OA 

BT 

ID 

DR 

KW 

CI 

cx 


ŹK 

otr 

QX 

BO 

5EY 

BE 

RC 

IF 

WK 

FI 

LM 

QN 

TS 

ŁS 

JL 

ZE 

«Q 

PI 

GF 

LA 

JN 

QB 

JE 


1 REM- 

2 REM : Zgrywus : 

3 REM : autor: Mirosław Liminowicz : 

4 REM : (c) 1991 Tajemnice Atan : 

5 REM- 

10 DIM A${39):DT=760:BS=1536:C=2 

20 ? CHR$(125):POKE 559,0:GOSUB 700 
30 DT=800:C=18:BS=39700:GOSUB 700 
40 DT=1000:C=999:BS=30000:GC>SUB 700 
50 POKE 559, 34:IF NOT FS THEN END 
60 TRAP 60:7 :7 

70 7 "1. Format plikowy (file)" 

80 7 "2. Samodzielny kasetowy (BOOT)" 
90 7 "0. Wyjście z programu" 

100 INPUT W:ON W+l GOTO 290,120,200 
110 GOTO 60 

120 7 :? "Na jaki plik ";:INPUT A$ 

130 AUX=0:IF A$(1,1)="C" THEN AUX=128 
140 TRAP 190:OPEN #1,8,AUX,A$ 

150 A=USR(1536,FS,BS) 

160 CLOSE #l:SOUND 0,0,0,0 
170 IF A=1 THEN 60 

180 7 "Blad - ";A;CHR$(253):GOTO 60 

190 A=PEEK(195):GOTO 160 

200 7 :7 "Podaj nazwę ":INPUT A$ 

210 L=LEN(A$):NA=39914 

220 FOR A=0 TO 39:POKE NA+A,32:NEXT A 

230 L=LEN(A$ ): FOR A=1 TO L 

240 POKE NA+A-1,ASC(AS(A,A) ) :NEXT A 

250 TRAP 190:OFEN #1,8,128,"C:" 

260 A=USR(1536,256,39700) 

270 IF AOl THEN 160 

280 GOTO 150 

290 TRAP 50000:END 

700 REM - hex to data conv - 

710 FS-0:RESTORĘ DT:TRAP 750 

720 FOR X=0 TO C:READ A$:POKE 53279,7 

730 FOR 1=1 TO 26 STEP 2 

740 H=ASC(A$(I))-48:H=(H—39*(H>9))*16: 

L=ASC(A$(1+1))—48:L=L-39*(L>9):POKE BS 

+FS,H+L:FS=FS+1:NEXT I:NEXT X 

750 RETURN 

760 REM- saver - 

770 DATA 68688d5903688d5803688d5503 
780 DATA 688d5403a90b8d5203a2102056 
790 DATA e484d4a90085d560 

800 REM - file loader - 

810 DATA 00010007b507a27fbd00049d80 
820 DATA 07cal0f7a027b9d607c9601006 
830 DATA e91f1002696091588810eeadle 
840 DATA 0348adlf0348a9048dle03a907 
850 DATA 8dlf03a2038e5203e88e5a03a9 
860 DATA d38d5403a9078d550320af0768 
870 DATA 8dlf03688dle03a980853e0a85 
880 DATA 3d853f8d89028d8a02a9568de0 
890 DATA 02a9f58del0220a207858020a2 
900 DATA 0785812580c9fffOf020a20785 
910 DATA 8220a207858320a207a0009180 
920 DATA a580c582a581e583b0d5e680d0 
930 DATA 02e6814c8807a9008d58038d59 
940 DATA 03a9078d5203a2102056e43003 
950 DATA a00160c088f0062056f54c71e4 
960 DATA a90c8d5203a2102056e4a2ff9a 
970 DATA 6ce002433a9b 
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Michał Mik, uczeń I klasy LO 


Drogi Michalel Bardzo mnie cieszy Twój stosunek do mfor 
matyki i komputerów Spróbuję odpowiedzieć na Twe pyta 
nia: 

1 . Działanie instrukcji DTA 

Rozkaz DTA umieszcza w kolejnych komórkach pamięci da¬ 
ne które określa argument tego rozkazu Miejsce (adres) 
w pamięci, gdzie zostaną umieszczone te dane, wynika 
z aktualnego stanu licznika programu , czyli zalezy od po¬ 
przedzającego rozkazu ORG i (lub) od innych rozkazów 
których kody zostały umieszczone w pamięci 

Przykładowy fragment programu 
ORG $600 
LDA #$24 
DTA C'ABC' 

DTA A($1234) 

umieści w pamięci począwszy od adresu $600 następujący 
ciąg bajtów (szesnastkowo) A9 24, 65 66, 67 34 12 La 
two to sprawdzić, np Wglądowmcą z XLF-a. Warto spo¬ 
strzec, że adres $1234 z ostatniej linijki zapisuje się w pa¬ 
mięci jako 34 12, czyli najpierw ‘młodszy bajt, potem "star¬ 
szy* Można tez dane grupować w jednym rozkazie, o ile się 
zmieszczą Tu na przykład ostatnie dwie linijki można zastą 
pić jedną 

DTA C'ABC',A($1234) 

2. Jak zamienić .BYTE, .SBYTE, itd. MAC a 
na rozkazy DTA w QA? 

Rozkaz DTA nie jest kopią żadnego z rozkazów MAC-a Nie¬ 
które z MAC-owych konstrukcji generujących dane można 
niemal automatycznie przenieść do QA, z innymi czeka Cię 
trochę więcej zabawy Podstawowa różnica polega na tym 
ze MAC ma różne rozkazy do różnych typów danych, a QA 
tylko jeden rozkaz, a typ danych wynika ze sposobu zapisu 
argumentu Na przykład 

.BYTE "ABC",$17 
•SBYTE "DEF",20 
•WORD 65535,$A12B 
.DBYTE $Al2B 
tłumaczy się na 

DTA C'ABC',B($17) 

DTA D'DEF',B(20+64) 

DTA A($A12B) 


Uwaga Czytelnicy! 

Laboratorium Komputerowe AVAL0N od 1 sierpnia 1991 roku 
rozpoczyna premiową sprzedaż opisanego programu AUTO¬ 
MAT PERKUSYJNY 

Cena programu nagranego na kasetę lub dyskietkę wraz z wy¬ 
czerpującą instrukcją jego użytkowania wynosi 30.000 zł Na 
kasecte łub dysku znajdują się również przykładowe muzyczki 
demonstrujące i wyjaśniające działanie programu 

Wśród wszystkich, którzy do końca listopada br zakupią w/w 
program rozlosowane zostaną 

nagroda główna: 

drukarka STAR LC-20 


nagrody pocieszenia: 

10 foysticków 

Adresy osób, które zakupią AUTOMAT PERKUSYJNY wysyłKO- 
wo w firmie AVALON zostaną automatycznie umieszczone 
w pamięci komputera, zaś Ci z Państwa, którzy kupią program 
u oficjalnych dystrybutorów i będą chcieli wziąść udział w loso¬ 
waniu nagród zmuszeni będą do przesłania na adres firmy 
AVALON dokładnie wypełnionego i naklejonego na kartę po¬ 
cztową kuponu konkursowego w jaki zaopatrzony zostanie 
każdy egzemplarz programu. Losowanie nagród odbędzie się 
31 grudnia 1991 r, a losował będzie oczywiście komputer. 
UWAGA, honorowane będą wyłącznie kupony oryginalne 
Wszelkie kserokopie itp. nie będą uwzględniane. 

Zamówienia i kupony prosimy przesyłać na adres 

Laboratorium Komputerowe AVALON 
ekr poczt. 46, 36-100 Strzyżów 


Nie zwlekaj - daj szansę Swojemu Szczęściu i 




Szanowni Czytelnicy! 


I 


I I 

| Redakcja Tajemnic Atan informuje o możliwości wysyłkowego naby- | 

wania wszystkich programów zawartych w dowolnym numerze pisma 
I nagranych na kasetę (tylko w transmisji normalnej) lub na dyskietkę I 
| W skład zbioru wchodzą wszystkie listingi, zamieszczone w wybranym | 
I przez Zamawiającego numerze Tajemnic. 

I I 

| Cena wersji kasetowej wynosi 19 000 zł, zaś dyskowej 16 000 zł W ce- | 
nę wliczony jest koszt nośnika, nagrania, opakowania oraz opłaty po- 
I cztowe Same listingi są za darmo. 

I I 

■ Zainteresowanych ofertą prosimy o dokładne wypełnienie zamówienia ■ 

1 (na odwrocie) i po naklejeniu go na kartkę pocztową, wysłanie na ad- 
I res redakcji podany w stopce | 


I 


I 


. Uwaga 1 Prosimy o nieprzysyłanie wcześniej należności bowiem bę- . 
1 dzie ona regulowana przy odbiorze przesyłki ■ 


L 


J 
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DTA H($A12B),L($A12B) 
albo nawet na: 

DTAC ABC B(S17),D DEF B(20+64) A($AI2B) A(S2BA1) 

Jak widać, 

BYTE tłumaczy się na DTA typu B lub C. 
WORD tłumaczy się na DTA typu A. 

SBYTE (konwersja na kody ekranowe) od¬ 
powiada DTA typu D dla napisów, nato¬ 
miast liczbowe dane trzeba przetłumaczyć 
w pamięci (w praktyce taka potrzeba pra¬ 
wie nigdy się nie zdarza) 

DBYTE działa podobnie jak WORD, 
z tym ze zapisuje bajty w odwrotnej kolej¬ 
ności. najpierw starszy, potem młodszy 
(przydatność tego jest znikoma) - w DTA 
można użyć typu B lub C, a nawet A, o ile 
umiesz sobie przestawić bajty “w głowie* 


Często używane w MAC-u konstrukcje 
.BYTE ADRES/256 
.BYTE ADRES&255 
czyli wycięcie starszego i młodszego bajtu 
ze słowa ADRES, można zastąpić w QA 

DTA H(ADRES),L(ADRES) 
Moznaby się pokusić o skonstruowanie 
automatycznego translatora danych z for¬ 
matu MAC na QA Mozę podjąłbyś się te¬ 
go zadania*? Chętnie wydrukujemy (i na¬ 
grodzimy 1 ) taki program Nie musi być on 
zresztą napisany w języku asemblera 
Z powodzeniem wystarczy tu C, ACTION, 
BASIC,. Zapraszamy też do rywalizacji in¬ 
nych Czytelników! 

3. Podstawowe różnice między 
MAC-em, a AA ilustruje tabelka 
zamieszczona niżej: 


4. Tytuły książek o programo¬ 
waniu. 

Chadwick łan "Mapping the Atari" 

Eichler Lutz, Grohmann Bemd "Atan 
600 XL/800XL Intern" 

Praca zbiorowa "De Re Atan - A guide 
to effective programing'' 

Zaks Rodney 'Programming the 6502" 

Ruszczyć Jan "Assembler 6502" 

Janusz B Wiśniewski 


- 

MAC65 

QuickAssembler 1.0 

wielkość 

16085 bajtów 

12329 bajtów 

edytor 

prymitywny (jak w BASIC u) 

całoekranowy, szybki, wygodny 

max dłudość wiersza 

128 znaków 

64 znaki 

tekst programu na dys¬ 
ku/kasecie 

postać stokenizowana, niedostępna 
dla innych programów 

tekst ASCII, łatwy do obróbki inny¬ 
mi programami 

numery wierszy 

niezbędne 

nie używa sie 

pracuje z DOS-em 

DOS XL, inaczej bywają kłopoty 

każdym 

praca z magnetofonem 

krańcowo utrudniona 

wygodna, działają także wszelkie sy¬ 
stemy "turbo" 

makroroprocesor, 
asemblacja warunkowa 

Jest 

brak 

szybkość asemblacrji 

bardzo duża 

duża 

możliwość wykonania 

napisanego programu 

brak 

jest 

wbudowany debugger 

brak 

wielce uproszczony 

debugger zewnętrzny 

BUG65 konwersacyjny 

nowoczesny, całoekranowy 

dostępność opisu 

szukajcie, a znajdziecie 

sprzedawany zawsze z opisem po 
polsku 

przykłady programów 

możliwe do zdobycia 

dołączone przez producenta, 
obecne na łamach "TA" 

gwarancja 

brak (kopia piracka) 

producent gwarantuje 
poprawne działanie programów 


r - 


Zamawiam nagrane na 


kasecie [ 
dysku | 


programy zamieszczone w . numerze Tajemnic Atari. 

(kaseta 19 000 zł, dysk 16 000 zł) 

Mój adres 


(imię. nazwisko) 


(ulica, nr domu mieszkania) 


(kod pocztowy, miejscowość) 


J 


•: 4 -.- ; - 




Czytelników, 
którym nie udało elę I 
Tajemnic Atari Informujemy, że redakcja 
wsiada jeszcze pewną (ograniczoną) Rość 
egzemplarzy tego numeru. 


o listowne zamówienia, które realizowane 
będą za zaliczeniem pocztowym (płatne 
przy odbiorze przesyłki) Cena jednego 
egzemplarza gazety wynosi 4.000 zł plus 
koszty przesyłki. Zamówienia realizowane 


będą w kotejnoód napływania aż do 
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$004a 00074 CKEY 

Podczas zimnego startu system sprawdza, czy został na¬ 
ciśnięty klawisz START konsoli. Jeśli tak to komórka jest 
ustawiana, co powoduje późniejsze wydanie sygnału 
dźwiękowego (beep) i rozpoczęcie procesu "bootowama" 
systemu z magnetofonu. 

$004b 00075 CASSBT 

Wskaźnik bootu kasetowego Zawartość 0 oznacza, że bo- 
ot kasetowy się nie powiódł 

$004c 00076 DSTAT 

Komórka wykorzystywana przez sterownik wyświetlania 
Zawiera informacje dotyczące zbyt małej objętości pamięci 
dla inicjowanego trybu pracy obrazu (grafiki), błędu zwią¬ 
zanego z wyjściem kursora poza dozwolone wartości, 
wciśnięciem klawisza BREAK 

$004d 00077 ATRACT 

Komórka informująca system o konieczności włączenia 
trybu zmiany kolorów. Jest zerowana przez przerwanie 
maskowalne (IRQ), gdy zostanie naciśnięty dowolny kla¬ 
wisz i jest zwiększana jej zawartość po upływie około 4 se¬ 
kund przez VBLANK Gdy przekroczy wartość 127 ($7f), 
zostaje ustawiona na 254 ($fe) co powoduje włączenie try¬ 
bu zmniejszenia luminacji i zmiany kolorów Powoduje to 
równomierne wypalanie się luminofora w kineskopie telewi¬ 
zora, a więc przedłużenie jego żywotności Należy pamię¬ 
tać, że joystick nie powoduje wyzerowania komórki 
ATRACT, więc gdy piszemy programy obsługiwane wyłą 
czme przez niego (bez użycia klawiatury), zerujemy co pe¬ 
wien czas jej zawartość Większość gier rozwiązuje ten 
problem w ten sposób, bądź też poprzez sztuczne wywo¬ 
łanie naciśnięcia klawisza (po zmianie kierunku pochylenia 
rączki joysticka) 

$004e 00078 DRKMSK 

Wykorzystywany jako maska jasności kolorów po włącze¬ 
niu trybu ATRACT Gdy tryb ten nie jest aktywny, zawiera 
wartość 254 ($fe) dla normalnej jasności lub też po zaini¬ 
cjowaniu ATRACT-u zawiera 246 ($f6) co powoduje 
zmniejszenie poziomu luminancji o 50 procent. 

$004f 00079 COLRSH 

Wykorzystywany jako maska kolorów Ustawiany jest 
przez przerwanie VBI_ANK, co powoduje co pewien czas 
zmianę kolorów tła, czcionki i marginesu na ekranie 

$0050 00080 TEMP 

Wykorzystywany jako pomocnicza komórka przy wyświet¬ 
laniu danych 

$0051 00081 HOLD1 

Posiada podobne znaczenie jak komórka TEMP (lokacja 
00080 ($0050) 


.. 



Szerokość lewego marginesu w trybie graficznym 0 lub 
w okienku tekstowym. Wartość zero oznacza brak margi¬ 
nesu Komórka jest inicjalizowana przez system operacyj¬ 
ny na wartość 2 Wartość tę można zmienić, na przykład 
przy pomocy instrukcji POKE Po naciśnięciu klawisza RE¬ 
TURN kursor pojawia się w kolumnie wyznaczonej przez 
LMARGN 


$0053 00083 RMARGN 

Szerokość prawego marginesu w trybie tekstowym, przez 
system operacyjny inicjalizowana na wartość 39 ($27) Za¬ 
wartości zarówno LMARGN, jak i RMARGN są ignorowane 
w trybie graficznym pracy układu wyświetlania obrazu. Po 
naciśnięciu klawisza RESET system operacyjny przywraca 
standardową wartość tym komórkom (LMARGN=2, 
RMARGN=39) Ich wartości nie mają żadnego znaczenia 
przy używaniu drukarki (szerokość lewego marginesu na 
ekranie me jest bynajmniej szerokością lewego marginesu 
przy drukowaniu), ani też przy scrollingu (zawsze do góry 
zostanie przesunięta cała linia (40 znaków dla trybu wy¬ 
świetlania ekranu 0)). 

$0054 00084 ROWCRS 

Aktualny numer trybu graficznego panującego na ekranie 
lub wiersz, w którym znajduje się kursor Ta komórka wraz 
z następną czyli COLCRS (lokacje 85,86 ($55 $56)) defi¬ 
niują pozycję kursora, a ściślej pozycję następnego znaku, 
który będzie czytany lub zapisywany na ekranie Może 
przyjmować wartości z zakresu od zera do 191 ($bf) (jest 
to 24 linie pomnożone przez 8 punktów każdej) Wartość 
0 oznacza wiersz pierwszy, najwyżej położony na ekranie 

$0055,$0056 00085,00086 COLCRS 

Aktualny numer trybu graficznego panującego na ekranie 
lub kolumna, w której znajduje się kursor Znaczenie tej ko¬ 
mórki pamięci jest analogiczne jak dla komórki ROWCRS 
(lokacja 00084 ($0054)), tylko tutaj wartość dotyczy me 
wierszy lecz kolumn Komórki ROWCRS i COLCRS (loka¬ 
cje 00084-00086 ($0054-$0056)) są również używane przy 
rysowaniu (instrukcja DRAW) i zawierają wtedy współrzęd¬ 
ne końcowego punktu rysowanej kreski 

$0057 00087 DINDEX 

Zawiera numer trybu pracy ekranu. Jest to numer trybu 
pracy wywoływanego na przykład z poziomu BASiC-a 
(GRAPHICS 0), a me numer trybu dla układu wyświetlania 
obrazu czyli ANTIC-a (grafika zerowa spowoduje, że DIN- 
DEX zawiera 0, nie zaś 2 jak w przypadku pracy ANTIC-a) 

$0058, $0059 00088,00089 SAVMSC 

Są to niezwykle pożyteczne komórki pamięci, ponieważ 
zawierają adres początku pamięci ekranu Dzięki temu mo¬ 
żemy w niezwykle prosty sposób sprawiać, że na ekranie 
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pojawią się jakieś znaki Jeżeli chcemy wpisywać dane do 
pamięci obrazu z poziomu BASIC-a to przykładowo wy¬ 
świetlenie wykrzyknika w lewym górnym rogu ekranu wy¬ 
kona się po wpisaniu POKE PEEK(89)*256+PEEK(88),1. 
Należy pamiętać że wyświetlane dane są w trybie INTER 
NAL, a me w trybie ASCII Krótka uwaga dla znających as- 
sembler Wyświetlenie w lewym, górnym rogu ekranu wy¬ 
krzyknika nastąpi po wykonaniu LDY #0 LDA #1 
STA (SAVMSC),Y Używając trybu pośredniego możemy 
łatwo wyświetlać nasze dane w dowolnym punkcie ekranu 
(zmiana rejestru Y spowoduje, że dane wyświetlane będą 
tylko w pierwszych 256 bajtach pamięci obrazu), należy 
pamiętać, ze zmiana zawartości SAVMSC jest karygodnym 
błędem Oto niektóre dane dotyczące objętości zajmowa¬ 
nej pamięci przez różne numery trybu pracy ekranu 


łfika 

Pamięć 

obrazu 

Display List 

Łącznie 

O 

960 

32 

992 

1 

400 

34 

674 

2 

200 

24 

424 

3 

200 

34 

434 

4 

400 

54 

694 

5 

800 

54 

1174 

6 

1600 

94 

2174 

7 

3200 

94 

4190 

8 

6400 

176 

8112 


Ponieważ pamięć obrazu ma różną długość, więc zmiana 
trybu graficznego spowoduje zmianę adresu zawartego 
w SAVMSC Zwykle pamięć ta znajduje się w górnych lo¬ 
kacjach RAM-u. Zmiana zawartości SAVMSC me spowo¬ 
duje nagłego wyświetlenia innego obszaru pamięci, decy¬ 
duje o tym odpowiednia budowa Display List-y czyli recep¬ 
ty przeznaczonej dla ANTIC-a, powodującej że obraz wy¬ 
gląda tak, a nie inaczej Mechanizm ten dokładnie zostanie 
omówiony w dalszej części mapy, przy objaśnianiu komó¬ 
rek pamięci dotyczących bezpośrednio DL. 

$005a 00090 OLDROW 

Zawiera numer wiersza, w którym znajduje się kursor Róż¬ 
nica między OLDROW a ROWCRS (lokacja 00084 ($0054)) 
polega na tym, że OLDROW zawiera numer wiersza przed 
operacją natomiast ROWCRS po operacji czytania, zapisu, 
rysowania na ekranie 

$005b,$005c 00091,00092 OLDCOL 

Zawiera numer kolumny w której znajduje się kursor Po¬ 
siada analogiczne znaczenie jak COLCRS (lokacje 00085, 
00086 ($0055 $0056)), ale OLDCOL zawiera starą pozycję 
kursora 

$005d 00093 OLDCHR 

Komórka zawiera kod znaku, który znajduje się na pozycji 
kursora Wykorzystywana jest do przechowywania ego 
kodu podczas poruszenia kursora 

$005e,$005f 00094,00095 OLDADR 

Komórka pamięci wykorzystywana do przechowywania 
kodu znaku na pozycji kursora podczas jego poruszenia. 
Zawiera adres pamięci gdzie znajduje się kursor 


$0060 00096 NEWROW 

Zawiera numer wiersza, do którego będzie rysowana kre¬ 
ska przy użyciu instrukcji DRAWTO lub XIO 18 

$0061 ,$0062 00097,00098 NEWCOL 

Zawiera numer kolumny, do której będzie rysowana kreska 

przy użyciu instrukcji DRAWTO lubXIO 18 NEWROW (lo¬ 
kacja 00096 ($0060)) oraz NEWCOL są inicjalizowane na 
wartości zawarte w ROWCRS i COLCRS (lokacje 00084- 
00086 ($0054-$0056)), które oznaczają końcowy punkt ry¬ 
sowania kreski 

$0063 00099 LOGCOL 

Pozycja kursora w linii logicznej Lima logiczna składa się 
z trzech linii fizycznych System operacyjny posiada bufor 
aktualnie wpisywanej linii o długości 119 bajtów i właśnie 
zawartość LOGCOL oznacza pozycję kursora w tym bufo¬ 
rze 

$0064,$0065 00100,00101 ADRESS 

Dodatkowe komórki pamięci wykorzystywane do przecho¬ 
wywania różnych danych wykorzystywanych przez sterow¬ 
nik obrazu, np przechowuje adres Display List-y (recepty 
do sposobu wyświetlania obrazu), bufora linii, danej prze¬ 
znaczonej do wyświetlenia, itp. 

$0066,$0067 00102,00103 MLTTMP 

Wykorzystywany jako dodatkowa komórka pamięci na 
stronie zerowej pomocna przy wyświetlaniu danych na 
ekranie Lokacja ta używana jest również jako tymczaso¬ 
wy bufor przy wykonywaniu operacji OPEN 

$0068, $0069 00104,00105 SAVADR 

Komórka pamięci (zwana również FRMADR) wykorzysty¬ 
wana do tymczasowego przechowywania danych przesu¬ 
wanych na ekranie 

$006a 00106 RAMTOP 

Rozmiar pamięci RAM Zawiera ilość dostępnej pamięci 
dostępnej dla użytkownika w stronach (stona pamięci za¬ 
wiera 256 bajtów) Dla komputera posiadającego 48 kilo¬ 
bajtów pamięci RAM komórka jest ustawiana przez system 
operacyjny na wartość 160 ($a0) co pomnożone przez 256 
bajtów daje nam wartość 40960 Tak więc pamięć przezna¬ 
czona dla użytkownika znajduje się poniżej tego adresu 
Ponieważ zwykle powyżej adresu obliczanego na podsta¬ 
wie zawartości RAMTOP-u znajduje się pamięć obrazu, 
więc zmiana trybu graficznego spowoduje zmianę zawar¬ 
tości komórki RAMTOP, może się wtedy zdazyć, ze dany 
tryb graficzny me zostanie uaktywniony ze względu na 
brak pamięci operacyjnej (której rozmiar zawiera właśnie 
RAMTOP) Uruchomienie systemu z wciśniętym klawiszem 
OPTION (wyłączenie ROM-u BASIC-a) spowoduje zwię¬ 
kszenie rozmiaru pamięci RAM o 8kB czyli powiększenie 
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2 Easy oome ., autorstwa Waldemara Ctalebika z Legnicy, 
to program ułatwiający życie posiadaczom magnetofonów 
Przedstawiomy program powodiąje ignorowanie przez 
komputer niektórych rodzajów błędów transmisji danych 
z magnetofonów do pamięci komputera (nr błędów 140, 
142, 143). Program przepisie z ROM procedurę obsłu¬ 
gi przerwania odczytu z szyny szeregowej (ISRODN) na¬ 
stępnie modyfikując ją tak, ty nie sygnalizowała błędów 
Teraz nie zostaje już nic innego jak tylko zmienić wektory 
VSERrN po to, aby komputer używał do Odczytu naszej 
procedury i wywołać odczyt wstępny (BOOT) z magnetofo¬ 
nu Po bezbłędnym przepisaniu programu należy go uru¬ 
chomić go komendą RUN Komputer nagra na kasetę pro¬ 
gram w formie BOOT-u Najlepiej program ten nagrać 
bezpośrednio przed kopierem, który chcemy uodpornić na 
błędy, lub bezpośrednio przed programem, który nie chce 
się wgrać Aby uruchomić program z poprzedzającym go 
Easy come wystarczy włączyć komputer z wciśniętymi 
klawiszami OPTION i START 

AV 10 POKE 559,0:OPEN #1,8,128,"C:":FOR A 
=1 TO 60:READ B:PUT #1,B:NEXT AsCLOSE 
\ # 1:POKE 559,34:END 

XS 30 DATA 0,1,0,6,6,6,173,10,2,133,29,17 
3,11,2,133,30,160,90,162,91,177,29,157 
. ,58,6,136,202,208,247,189,59,6 

GU 40 DATA 201,132,208,5,169,160,157,59,6 
,232,224,37,208,239,169,59,141,10,2,16 
9,6,141,11,2,76,128,198,0 



opt 

%10101 


bne 

tul 




tu2 

Ida 

adrl,x 

vserin 

equ 

$020a 


emp 

#$84 

bootc 

equ 

$c680 


bne 

tu3 

bufor 

equ 

$ld 


Ida 

ł$a0 





sta 

adrl,x 


org 

$0600 

tu3 

inx 






cpx 

#$25 

Loadad 

dta b(0),b(1) 


bne 

tu2 


dta 

a(loadad) 


Ida 

<adrl 


dta 

a(startad) 


sta 

vserin 





Ida 

>adrl 

start, ad 

Ida 

vserrn 


sta 

vserm+l 


sta 

bufor 


jmp 

bootc 


Ida 

vserin+l 





sta 

bufor+1 

adrl 

egu 

* 


Idy 

ł$5a 





ldx 

ł$5b 




tul 

Ida 

(bufor),y 


end 



sta 

adrl-l,x 





dey 






dex 





3. Ostatni (na dziś) pięciolin 

Jkowleo 

napisał 

Pan Bartek 


Molenda z Barczewa Jest to prosta gra zręcznościowa 
przeznaczona dla jednego gracza Steruje się za pomocą 
joystick’a podłączonego do portu pierwszego. Zadanie po¬ 
lega na przejściu na drugi koniec planszy, unikąjąo zde¬ 
rzenia z ramką (płotem pod napięciem) swoim śladem 
(wzruszonym grząskim gruntem) i pojawiającymi się 
kropkami ( minami) 




Opis działania programu: 


Wiersz 1 Rysuje ramkę, likwiduje kursor i ustala 
zmienne ckreśląjące pozycję gracza 

Wiersz 2 Odczytuje wartość joystick’a i sprawdza, 
czy nastąpiła kolizja gracza s innymi 
obiektami. 

Wiersz 3 Rysuje gracza i w losowo wybranyoh 

miejscach trzy miny 

Wiersz 4 Sprawdza, osey gracz dotarł do końca ramki. 

Jeśli tak, to wyświetla błyskający komunikat, 
a jeśli nie to wraca do wiersza drugiego. 


Wiersz O Jeżeli wystąpiła kolizja, to kończy grę 

odpowiednim komunikatem oraz efektami 
świetlnymi i dźwiękowymi 

1 GRAPHICS 7:POKE 752,l:COLOR 1:PLOT 1 
00,10:DRAWTO 10,10:DRAWTO 10,60:DRAWTO 

100,60:DRAWTO 100,20:X-11:Y-59 

2 S=STICK(0):X-X-(S«ll)+(S-7):Y-Y+(S«1 
3)-(S-14):IF SOI5 THEN LOCATE X,Y,C:0 
ł) 00 GOTO 5 

3 COLOR 2:PLOT X,Y:FOR 1-1 TO 3:A-INT( 
RND(0)*88)+13:B“INT(RND(0)*48)+13:COLO 
R 1:PLOT A,B:NEXT I 

4 ON X<100 GOTO 2:? "HAPPY END !!l":PO 
KE 710,0:FOR 1-1 TO 255 STEP 0.2:POKE 
709,I:NEXT I:GRAPHICS 0:END 

5 ? "BUCH !!!":FOR 1-1 TO 255:POKE 710 
,I:SOUND 0,1,8,15:NEXT I:GRAPHICS 0:EN 
D 


VR 


RG 


tM 


W 


RS 


Autorzy wydrukowanych pięciolonjkowców otrzymują ho¬ 
norarium w wysokości lOO tys zł 


ERRATA 

W poprzednim numerze Tajemnic w listingu PRINT 8 nastąpiło nie¬ 
stety przesunięcie znaczków ESC, co mogło spowodować kłopoty 
z poprawnym przepisaniem tego programu Poniżej drukujemy po¬ 
prawione wiersze wraz z kodami kontrolnymi 

LZ 110 A-USR{BS,23,80,ADR{"X-ę")):DX-55 
VZ 120 A-USR(BS,23,90,ADR("Y-Ę")):A-0 
XH 810 A$-STR$(WYNIK):A$(LEN(A$)+l 




Ceny reklam w Tajemnicach Atarf 

Ogłoszenia ramkowe: 


icrnkw. 


t.ooo zł 

Gała strona 


o mlnzł. 

Ostatnia strona 

.f. J__L. 

id rola. $ 

Ogłoszą 

Każdesłowo 

ua drobi 

ie: 

lifooooaa, 
















OFERUJEMY 


80BB0 

wi.oniofo gra iręanośdowo-iogiana; 
56 fantastycznych, wciągających plansz. 


NOWOŚĆ' Auto met Perkusyjny 

- doskonale narzędzie do tworzenia "muzyczek" komputerowyer 
'Wśród nabywców rozlosowano zostanie drukarka STAR 11-20 i 1 
Szczegółowy opis! regulamin konkursu na stronach 16, 1/ 

- LAS£RMANlA,-RQdBO. KOHSIRUłCTDR_ 

efektowno gra logiczna polegająca na pokonaniu 
iabiryirtu komnat przy pomocy umiejętnego sterowania 
promieniem lasera; 


_ MISJA, -FRED zestaw gier zręczao-ćowyth, 

zmagania komandosa w podziemne] bazie wójtowej wrogo; 
wędrówka i FREDEM przez pefńą zagadek i RAoezprcuetfs'*.krainę. 


Cena zestawu 28.009 il 


pozwalający na tworzenie gotowych, 


program użytki 


samodzielnie działających gier. 
Cena zestawu 28.000 zr. 


Oferujemy rówmez 


zestaw do programowania w 

QU CK ASSEMBLER • zintegrowany pakiet edytora, asemblera i mini debugera. 
BUG HUNTER - nowoczesny debuger caToekranowy. 

XL FIIEID - kalkulator, edytor, monitor pamięci, i tabela kodów stale obecne 
pamięci komputera. 

Zestaw procedur bibliotecznych ułatwiających naukę programowania 

Podręcznik zawierający instrukcje do wszystkich wymienionych programów 
az krótki kurs programowania. 


języku asemblera 


lk. mm 

ikr. loczt. 46 
rlOÓ Strzyżów 


Uregulowanie ndeznosa nasi puje przy odbiorze przesyłki. Zamówienia, które 
powinny zawierać wyszczególnienie rodzaju nośnika (kaseta, dysk) oraz dokładny 
adres zamawiającego należy wysytac no adres: 


Odbiorców fcurtowych i wfasciddi sklepów prosimy o kontakt indywidualny O erujemy niskie ceny zbytu 










